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Liebe Leserin, lieber Leser! 


Weihnachten steht vor der Tür! 

Aufden Wunschzetteln von Groß und Klein, Jung und Alt 
stehen Homecomputer und Telespiele ganz oben. 
Hunderttausende werden in diesem Jahr elektronische 
Spielzeuge unter dem Christbaum liegen haben. 

Das Jahr 1983 hat in unserem Lande den entgültigen 
Durchbruch des Microcomputers gebracht. 
Softwarehäuser schossen wie Pilze aus dem Boden, neue 
Computer-Magazine etablierten sich und die Exporteure 
aus den Vereinigten Staaten, Großbritannien und Japan 
freuten sich über den deutschen Computerboom. 

Auch unser Verlag erlebte in diesem Jahre dank des 
Homecomputers einen enormen Aufschwung. 

Deshalb danken wir allen Leserinnen und Lesern für Ihr 
Interesse an unseren beiden Magazinen 'Homecomputer’ 
und 'CPU”. 


Wir alle wünschen Ihnen 
ein gesegnetes, frohes Weihnachtsfest 
und ein erfolgreiches, glückliches neues Jahr 


Die Mitarbeiter des Verlages 
und Ihr Ralph Roeske 


[7 UT 
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Urheberrecht: 

Alle in Homecomputer veröffentlichten Beiträge 
sind urheberrechtlich geschützt. Alle Rechte, auch 
Übersetzungen, vorbehalten. 

Reproduktionen jeder Art (Fotokopie, Microfilm, 
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Alle veröffentliche Software wurde von Mitarbeitern 
des Verlages oder von freien Mitarbeitern erstellt. 
Aus ihrer Veröffentlichung kann nicht geschlossen 
werden, daß die beschriebenen Lösungen oder Be- 
zeichnungen frei von Schutzrechten sind. 





Bezugspreise: 
Einzelheft:5,50 DM 

Abonnement:Inland 55,-DM im Jahr (12 Ausgaben) 
Ausland: Europa 80-DM USA 110,-DM 











Anzeigenpreise: 
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Autoren, Manuskripte: 

Der Verlag nimmt Manuskripte und Software zur Ver- 
öffentlichung gerne entgegen. 

Honorare nach Vereinbarung. 

Bei Zusendung von Manuskripten und Software er- 
teilt der Autor dem Verlag die Genehmigung zum 
Abdruck und Versand der veröffentlichten, Pro- 
gramme auf Datenträger. 

Rücksendung erfolgt nur bei angeforderten Beiträ- 
gen, ansonsten nur gegen Erstattung der Unkosten. 
Zusendungen von Software zur Veröffentlichung 
soll bitte folgendes enthalten: 

Kopierfähige Kassette oder Diskette mit dem Pro- 
gramm, von Drucker erstelltes Listing oder Serie von 
Bildschirmfotos (keine Schreibmaschinenlistings), 
evtl. Bildschirmfotos von einem Probelauf. 
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Fast 8 Monate hat es gedauert - 
aber nun ist es so weit: Die 
Anfangsschwierigkeiten mit dem 
Homecomputer-Kassettenservice 
sind überwunden! 


Neue Bestellungen werden inner- 
halb einer Woche bearbeitet und 
ausgeliefert - alte Bestellungen 
wurden zu ca. 95 % an die 
Auftraggeber verschickt. 


Eine gute Nachricht für die Leser, 
die noch vor Weihnachten schnell 
ein paar Programme auf Kas- 
setten 

zum Verschenken 


Aber geben Sie bitte Ihre Wün- 

sche präzise an: z.B.: 

VC-20-Kassette aus Heft 10/83 

Mit dieser Preisliste werden alle vorherigen 
Listen ungültig. 


Bestellungen Inland: 


Gegen Einsendung eines Schecks oder 
Vora szahlung auf unser Konto bei der 
casse Eschwege. 


Kto.-Nr. 45 22 934 
senden wir Ihnen die gewünschten Pro- 
gramme schnellstmöglich zu. 


Bestellungen Ausland: 


Nur Vorauskasse, Schein (Kassette 10,- 
DM. Diskette 20.- DM). Keine Schecks 





haben möchten. 


oder Überweisungen! 
Lieferung noch nicht erhalten? 


Bei Überweisung aufunser Kontokann 
es bis zu 2 Wochen dauern, bis wir Ihre 
Bestellung in Händen haben. 

Oft passiert es, daß auf der Überwei- 
sungsdurchschrift weder Name, noch 
Ort, noch Art der Bestellung zu er- 
kennen sind. Schreiben Sie uns! (An- 
rufe kosten viel Geld und bringen, weil 
dann Schriftvergleiche nicht möglich 
sind, kein Ergebnis)! 





Greifen Sie jetzt zu! 


Wenn esbei unsbesonders hektisch zu- 
geht, dann kann es schon mal pas- 
sieren, daß es mit der Lieferung etwas 
länger dauert. Vergessen Sie bitte nicht: 
Der Kassettenservice ist ein zusätz- 
licher Service von uns, der Ihnen, dem 
Leser. Tipparbeiten ersparen soll (Sie 
kennen den Versuch einer anderen 
Zeitschrift, dieses per Lichtgriffel zu 
ermöglichen). Wir tun unser möglich- 
stes. Aber Pannen sind nie ausge- 
schlossen. 

Bitte haben Sie in solchen Fällen Ver- 
ständnis. 


aus Heft 3/83 


Gommodore-64 
Biorythmus 
Roulette 
Labyrinth 
Disassembler 


CBM (Pet) 3000 
Concorde 

Uhr 

Kalender 

51 

Roulette 


Sharp MZ 80 
Submarine-Hunt 


2X-81 
U-Boot-Jagd 
Rotamint 


Apple II 
Rscroll/KBD 
Diskhandler 
Bundesliga 
Autokosten 


Vc-20 
Zeichengenerator 
Disassembler 
Slalom 

Robot 


TI 99/4 
Dive Bomber 





aus Heft 4/83 


Commodore-64 
Assembler 
Kalaha 
Maze-Challenger 


TI 99/4 
Asteroiden 





CBM (Pet) 3000 
Maze-Challenger 
Kalaha 


ZX-81 , 
Brüche pauken 
Life 

Survive 
Labyrinth 


Apple Il 
Suchrätsel 
Disk-Schutz 
Oktopus 
Labyrinth 


D 16,-DM 


Vc-20 

Labyrinth + 8K 
Spukhaus + 16K 
Assembler 


aus Heft 5/83 


TI-99/4A 

Panzerkrieg 

TI-Ufo 

Killersatellit 
Chiffrier/dechiffrier-PGM 
Rangliste 


K 12,-DM 


Vc-20 K 14,-DM 
Invaders (3PGMe) +16K 

Editor 

Assembler (neu) 

Labyrinth (3K) 

Car-Crash +8K 


ZX-81 
Ritter 
Missile ZX-Command 


CBM (Pet) 3000 
Mastermind 1 
Mastermind 2 





Commodore-64 

Editor 

Assembler (neu) 
Mondlandung 

Wurm 

Geisterjäger 
C-64-Sprite-Generator 


K 12,-DM 


Apple I D 16,-DM 
Diskschutz 


Trollhöhlen 


aus Heft 6/83 


Vc-20 

Bomber +3K 

Old Shurehand +3K 
Logo +3K 
Hürdenlauf +3K 
Adressdatei +8K 


VCommodore-54 
Schluckermaxi 
Synthesizer 
Goldfieber 


Apple II 
Starwars 
Zentrifugalkraft 
Texteditor 


ZX Spectrum 
Frogger 


2X-81 
Data 
Renumber 


CBM 3016 
Galactica 


T1-99 
Space-Defence 
Street Race 
Breakpiont 


K 10,-DM 





aus Heft 7/83 


Vc-20 

Grid Gummer 
Oil Panic 

VG Pinball 
Highway 


2X-81 

Apfelbaum 

ZX ärgere dich nicht 
Hausnummern 


CBM 3000 
Adventure Castle 
Börsenspiel 
Station Defender 


K 10,-DM 


Apple Il 
21 


TH99 
Steckerspiel 


ZX Spectrum 
Mampfmann 


aus Heft 8/83 


TRS-80 
Grafik-PGM 
Pferderennen 


Commodore-64 
Energie 
Telefon/Adress-Datei 
Charaktergenerator 
Grips 


TIH-99/4A 

Der Pilzwurm 
Frogpath 
Flugabwehrgeschütz 
Monster Hunt 





























































































































Apple II D 16,-DM VC-20 K 8,-DM 
Imbiß-Bude Skipping 
Carace Einsiedler 
ZX-81 K 8,-DM | Dragon 32 K 8,-DM 
Bundesliga Chip Out 
Nimm Säulen 
ZX-Spectrum K 8,-DM R 
Spectraxians aus Heft 11/83 
Kreisstatistik 
TI 99/4A K8,- 
VC-20 K 10,-DM | Poker 
Helikopter Blackjack 
Crown Jubilee 
Geisterschloß ZX Spectrum K8,- 
Superhirn 
Sharp MZ-80 K 8,-DM | Haushaltsrechnung 
Roadrunner 
Data Generator zX 81 K8,- 
3-D Highway-Race 
Chikago 
aus Heft 9/83 Apple Il D 16,- ] | -99 
Pyramid Builder 
TI-99/4A K 8,-DM n 
Spielautomat Survival 
Fallschirmspringer Commodore-64 K10;- = r 
Laser Force Tips & Tricks 
ZX-81 K 10,-DM Jump Man 
Ganeymed Autorennen 
Maschinen-Programm-Loader 
Schwarzes Loch vc 20 K8- 2 ” 
el x a-om | Programmreservoir Eine Fundgrube für den 
ommodore Ba 
Weltraumschlacht Demon Attack TI-99 Anwender 
Wildwasser TRS 80 K8;- 
6-20 K 10,-pm | Schiffe versenken 
Sacher Mau Mau EIN DATA BECKER BUCH 
Survival 
Star Tramp aus Heft 12/83 
Apple 11 D 16,-DM t Auf über 250 Seiten enthält dieses neue Superbuch 
Kupellabyrinth Commadare-84 K 10,-DM eine Fülle wertvoller Programmiertips, Tricks und Anre- 
Gärtner hl gungen, mit denen Sie mehr aus Ihrem TI-99 machen 
a r können. Dazu eine große Vielzahl lauffertiger Pro- 
ul gramme, die Sie direkt eintippen können. TI-99 TIPS & 
aus Heft 10/83 TRS-80 K 8,-DM TRICKS, 1. Auflage 1983, ca. 250 Seiten, DM 49,-. 
Serpents N 2 
di e Dieses Buch sollte jeder TI-99 Anwender haben. 
Soma re n RN vc-20 K 10,-DM Sie erhalten es im Computer-Fachhandel, in den Fach- 
Invaders Space-Za z abteilungen der großen Kauf- und Warenhäuser, im 
Fallschirm Takt Buchhandel oder direkt mit dem Bestellcoupon. In der 
17+4 Schweiz über THALI AG, in Österreich über Fachbuch- 
Apple Il D 16,-DM Center ERB und in Benelux über Computercollectief. 
Helikopter-Attack Apple Il D 16,-DM 
Karylon Sprite-Designer IHR GROSSER PARTNER FÜR KLEINE COMPUTER 
Panzerjagd 
TI-99/4A K 8,-DM 
Kniffel Dragon 32 K 8,-DM 
Mauerklauer en Merowingerstr. 30 : 4000 Düsseldorf - 0211/7310010 
anzerjag 
2X-81 16K K 10,-DM 
Memory ZX-Spectrum K 8,-DM BESTELL-COUPON 
Lift . Bogen Einsenden an: DATA BECKER GmbH, Merowingerstr.30,4000 Düsseldorf 
Drakulas Diamanten 1281 Ks Bitte senden Sie mir __ — Exemplare T-89TIPS & TRICKS je DM 49- 
= Du zzgl. 3,- Versandkosten. 
ug 16K K 8,-DM a Jäger U per Nachnahme Verrechnungsscheck liegt bei 
0 nake 
Lift 
T1-99 K 8,-DM 
Una K 8,-DM Vo Bitte Adresse deutlich schreiben 
uadrato langman 





Basic Basic 


bekanntesten Computer innerhalb dieser 
Serie aufgenommen zu werden. 

Dem müssen wir zustimmen und werden von 
nun an auch den Rechner der Firma Texas 
Instruments in unserer Basic-Konverterliste 


In diesem Heft setzen wir unsere in Ausgabe 
10/83 begonnene Serie Basic # Basic fort. 
Wir bekamen viele Zuschriften, in denen 
geäußert wurde, daß der TI-99 in diesem 
Lande sicher populär genug sei, um unter die 


berücksichtigen. 

Hier also der Zusatz für die Liste aus Heft 
10/83 mit den Befehlen zum Texas- 
Instruments-Rechner. 





ABS (Zahl) 


TI-99 


ASE (String) 


ATN (Zahl) 





CONT 
Fährt mit Pro- 
grammausfüh- 
rung fort 


608 
Ermittelt den 
Cosinus der 
Zahl 





con 
MICROSOFT 
BASIC 


cosiZahl) 





APPLE II 


c0S(zZahl) 


DATA 

Für Dataliste 
zum Gebrauch 
in READ- 
Statement 


CHRS (Zahl) 


CLOSE #Dateinr. 





DEF 
Definiere 
arithmetische 
Funktion 


DELETE 
Löscht bestimm- 
te Programm- 
zeilen 


DIM 

Schafft Platz 
für Variablen- 
Felder. Maxim. 
Subskriptwert 


EDIT 
Editieren einer 
Programmzeile 


Programm 
beenden 


EXP 
Exponentialwert 
des Ausdrucks 





DATA Konstante 
[.Konstante...] 


DEF FN Variable 
[WVariable, 
Variable...)] 
=Zahl 0. Formel 


DELETE Zellennr. 
LZeilennr.] 


DIM Variable 
(Felder) 
[Var.(Felder)..] 


EDIT Zeilennr. 


EXP (Zahl) 





DATA Konstante 
[-Konstante...] 


DEF FNVariable 
(Variable) 
=Zahl 0. Formel 


DEL Zeilennr., 
Zeilennr. 


DIM Variable 
(Felder) 
LVar.(Felder)...] 


(Bildschirm- 
orientiert) 


EXP (Zahl) 





ATARI 


c0$([Zahl) 


DATA Konstante 
[,Konstante...] 





Color Genie 


cosizah)) 


DATA Konstante 
[.Konstante...] 


DEF FNVariable 
[Variable, 
Variable)] 
=2ahl o. Formel 


DELETE Zeilennr., 
Zeilennr. 


DIM Variable 
(Felder) 
[Var.(Felder)...] 


Editieren per 
Cursor 


EXP (Zahl) 





verschied. DEF- 
Statements 
vorhanden. 

Andere Bedeutung 


DELETE Zeilennr- 
Zeilennr. 





CBM 64 


cos(zahl) 


DATA Konstante 
[.Konstante...] 


DEF FNVariable 
=Zahl 0. Formel 


DIM Variable 
(Felder) 
[Var.(Felder)..] 


DIM Variable 
(Felder) 
LVar.(Felder)...] 


EDIT Zeilennr. 


EXP (Zahl) 





Editieren per 
Cursor 


EXP (Zahl) 





Dragon 32 


coStZahl) 





ORIG 1 


cos(Zahl) 


DATA Konstante 
[Konstante...] 


DEF FNVariable 
Variable) 
=Zahl 0. Formel 





DELETE Zeilennr- 
Zeilennr. 


DIM Variable 
(Felder) 
[Var.(Felder)...] 


EDIT Zeilennr. 


EXP (Zahl) 





DATA Konstante 
[.Konstante...] 


DEF FN Variable 
(Variable) 
Zahl o. Formel 


DIM Variable 
(Felder) 
[Var.(Felder)...] 


EDIT Zeilennr, 


EXP (Zahl) 





CBM 3000 


c0Stzanl) 


DATA Konstante 
[.Konstante...] 


DEF FN Variable 
(Variable) 
=Zahl oder 
Formel 





DIM Variable 
(Felder) 
LVar.(Felder)...] 


Editieren per 
Cursor 


EXP (Zahl) 





TRS 80 Il 
VIDEO GENIE 


costzahl) 


DATA Konstante 
[.Konstante...] 


verschiedene 
DEF-Statements 
vorhanden. 

‚andere Bedeutung 


DELETE Zeilennr- 
Zeilennr 


DIM Variable 
(Felder) 
LVar.(Felder)..] 


EDIT Zeilennr. 


EXP (Zahl) 





VC-20 


60$[Zahl) 


DATA Konstante 
[,Konstante...] 


DEF FN(Variabie) 
=Zahl oder 
Formel 


DIM Variable 
(Felder) 
Lvar.(Felder)...] 


Editieren per 
Cursor 


EXP (Zahl) 





ZX-81 


CoS(Zahi) 


DIM Variable 
(Felder) 
LVar.(Felder)...] 


EDIT Cursor 
in entspr. Zeile 


EXP (Zahl) 





CONTINUE 


ZX Spectrum 


cosizahl) 


DATA Konstante 
[.Konstante...] 


DEF FN Variable 
[Variable, 
Variable...)] 
=Zahl 0. Formel 


DIM Variable 
(Felder) 
[.Var.(Felder)...] 


EDIT [Zeilennr.] 
auch Cursor 

in entspr. 

Zeile 


EXP (Zahl) 





CONTINUE 
con 


TI-99 


608 (Zah) 


DATA Konstante 
[.Konstante...] 


DEF Funktions- 
name 
Variable)] 
Zahl o. Formel 


DIM Var.(Felder) 
[Var.(Felder)...] 


EXP (Zahl) 








\ 
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Ü 
ZU SINCLAIR — 


„. der sicherste Weg, einen SIN- 
CLAIR ZX81 oderSINCLAIR ZX SPEC- 
TRUM zu kaufen und dann auch 
wirklich zu genießen ist der Weg 
zum Sinclair-Fachhändler, von de- 
nen es\über 300 in der Bundes- 
republik\gibt. Nur da bekommen 
Sie SINCLAIR mit allem; fachkundi- 
ge Beratung, Zubehör, Software 
und die Original-Garantie. Nur 
beim SINCLAIR Fachhändler sind 
Sie gut aufgehoben - garantiert! 


Sinclair ZX Spectrum - der Heim- 
computer, der das Wunderbare 
leistet: ein Kleinrechner, der es 
auf seine Weise mit einem rich- 
tigen Großrechner aufnehmen 
kann. Mathematische Funktionen 
und Operationen wie bei großen 
Profi-Geräten. 8-beliebig einsetz- 
bare Farben für Vorder- und Hin- 
tergrund. BEEP-Kommandos über 


Wo Sie Ihren Original-Sinclair 
bekommen, sagt Ihnen 
unser Händlernachweis. 

Schreiben Sie uns, 
Sinclalr-Generalvertretung 
Deutschland, Postfach 6352 

8012 Ottobrunn. 


drei Oktaven. Bedienungsfreund- ’ 
liche Tastatur mit 40 Tipptasten. | 
Hochauflösende Grafik durch 256 | 
Punkte waagrecht und 192 senk- 
recht und beliebiger Mischun 
von Grafik und Schrift. LOAD/ 
SAVE in Hochgeschwindigkeit. 


Programmierbar in BASIC und Ma- 
schinensprache (Z80A). Völlig neu 
gestaltetes Kassetten-Interface. 


Sie erhalten auch nur bei unseren 
autorisierten Fachhändiern sd 2 


unentbehrlichen deutschen Qri- 
ginal-Handbücher zu jedem Ge- 
rät. Und Sie erhalten nicht hur 
einen Computer mit Zukunft, $on- 
dern auch eine Anlage mit fast 
unbegrenzten Ausbaumöglich- 
keiten. Der 2X SPECTRUM ist ein 
Gerät, das seinem Namen Ehre 
macht: das Spektrum von Spec- 
trum reicht unendlich weit! 


SINCLAIR 2X 81. - einer der £rfolg-. 
reichsten Personal-Compyter der 
Weit, jetzt für einen Brugfteil der 
Summe zu haben, die Yergleich- 
bare Computer kosteypl--Die-Mas- 
senverbrfitung diesg& weltweit 
beliebten Gerätes (bisher über 
Million Käufern macht einen sef- 
sationellen Preis möglich, inklysi- 
ve ein 212-seitides Handbüch, 
Netzteil und alle/Anschlüsse. Da- 
bei wird am Gerät selbst anfnichts 
gespart: Asserpbbler über,die USR- 
Taste. Eingebduter Synfax-Chec 
mit/Cursor. Keyboard mit 40 Tipp“ 
tasten, für Grafik, Symbole und 
Zeichen. Wie den /SINCLAI® 2X 
SPECTRUM gibt es/den ZX8 
der Original-Sinclair-Garaptie nur 
von uns: Und direkt ber unseren 
autorisierten Fachhändlern. 


sincainm 


mit | 














HAUNTED HEDGES 


For 16k or 48k Spectrum 


Der Spieler wird von quirligen kleinen Geistern durch ein Labyrinth gejagt,denen er 
entkommen muß. Für kurze Zeit kann er diese kleinen Ungetüme versteinern. 


Dieses Programm erinnert von seinem 
Aufbau her stark an die Pacman - 
Spielidee, von der es offentsichtlich 
auch abgeleitet ist. Insofern also nichts 
weltbewegendes. 

Das dieses Programm dennoch einen 
gewissen Reiz ausübt. liegt an seiner 
Aufmachung. 

Das Labyrinth vermittelt einen räum- 


1614 e 


um 


„spe 


Ein weiteres Programm, das diesen Eindruck von Perspektive vermittelt, hat der 


gleiche Hersteller vorgestellt. 


Das Programm LUNA CRABS (Mond- 
krabben) besticht ebenso wie das 
vorgenannte durch seine grafische 
Wirkung. Da ist eine Mondlandschaft 
mit sehr schön räumlich dargestellten 
Bergen und Mondkrabben, die beim 
Näherkommen entsprechend größer 
werden. 

Das die Spielidee nicht sehr neu ist, 
stört bei diesem Programm wenig: Eine 
Erkundungsrakete ist auf einem der 
Saturnmonde gelandet. Das mit einer 
Kanone ausgestattete Landeteam wird 
plötzlich von den seltsamen Bewoh- 
nern dieses Trabanten, den krabbenar- 





tigen Wesen, angegriffen. Mit Hilfe die- 
ser Waffe müssen sich die Astronauten 
gegen die von’ allen Seiten angreifen- 
den Feinde wehren. 

Wie gesagt, die Idee ist nicht sonderlich 
originell und wird in vielen ähnlichen 
Programmen in diversen Variationen 
benutzt. Durch eine geschickte Anima- 
tion und der konsequenten Ausnut- 
zung der feinen Grafik des ZX- 
Spectrum sowie seiner Toneffekte ha- 
ben wir hier ein Programm, das auch 
abgebrühte Spieler noch begeistern 
dürfte. 


lichen Eindruck, in das man quasi als 
Beobachter von schräg oben hinein- 
schaut. 

Durch diesen kleinen Kunstgriff hat 
der Hersteller Micromega, ein lustiges 
Spiel produziert. Es ist recht einfach zu 
spielen und daher auch für Kinder 
geeignet. 






3D menden 
LUNA CRABS 























For 16k or 48k Spectrum 





Pilot 


für den VC 64 


Falls Sie noch nicht in Besitz eines Pilotenscheines sein sollten, haben Sie jetzt die 
Möglichkeit, mit dem Spiel ”Pilot” sich die hierzu erforderlichen Fähigkeiten 


anzueignen. 


Folgende drei Übungen müssen fehler- 
frei absolviert werden: 

Als Erstes muß eine Barrikade durch- 
brochen werden. Dies ist noch verhält- 
nismäßig einfach. Schwerer wird die 


zweite Übung - das Durchfliegen eines 
Tunnels unter Beschuß. Die Prüfung 
besteht nur der, der auch die dritte 
Runde: Landen aufeinem beweglichen 
Kreuz, schafft. 


Die Tasten, mit denen der Hubschrau- 
ber gesteuert wird, werden in den 
Anleitungen zu den einzelnen Prüflin- 
gen ausführlich erklärt. 


RE 


8 CLR: PRINT" CRODDODDDDIBEEEEREBIRITTE HABEN SIE GEDULD" :AN=1:Px=D 
1 LA$="" :POKES3288,8:POKES3281,8:FAA=38:NE=-1 
18 v=53248:POKE2048, 13: FORN=®TO11:RESTORE :READQ : POKEB32+N. Q: NEXT 
28 FORN=12T062 : READG :POKEB32+N,Q: NEXT 
38 DIMASCIBOY ASCHE" TI AED" TREE" rn" AELHI=" AK" Km LOD 
48 ALE)=" HAM" ASCH)=" O4" AFCO)="EARTH" :SP%=288 : POKEV+39, 7: DIMPEA<12> 
58 PEA(19=119:PEAC2)=99:PEAC3)=114 :PEZ(43=75:PEACSI=87 :PERCE>=113:PEACBI=S 
69 RA=39:LA=1: RC )=" u" :PEACTI=eIZI 
78 FORMA=1T08:LAS=LAS+ASCOR> :NEXT 
88 PEHCP)=1:PEACIOI=1B:PEAC11)=20:PEXC12)=B: POKEESB, 128:SC=B 
188 POKEV+1,KYA 
POKEV, 208 
PRINT" TADWB IPILOTE" 
PRINT" IM Br MIOERG RICHTERS, 83" 
PRINT"MWISIE SIND EIN SHUBSCHRAUBERPILOTE UND" 
PRINT"IMACHEN JETZT DIE ABSCHLUSSPRUEFUNG" 
PRINT'"IZU IHREM PILOTZNSCHEIN." 
PRINT"IRUERST MUESSEN SIE VERSUCHEN, DIE" 
PRINT"MLAUFENDE SBARRIKADEN ZU ZERSTDEREN. " 
PRINT"WSEIEN SIE ABER SCHNELL,DENN SIE" 
FRINT"WHABEN NUR 25 SEKUNDENM ZEIT." 


PRINT"IBRUNTER  : 
PRINT"IBISCHIESSEN: BSPACER" : 
PRINT"MIBMENN SIE BEREIT SIN, DRUECKEN" 











233 PRINT"MSIE BITTE SRETURNE" 
249 IFFEEK<283)=1THENPR INT" TRDDDDDNDKDEKDEKDEEN" : POKEY+21,1:GOTO1988 
258 GOTO248 

1939 TI$="899890" 

1981 FORT=1T058:RN=INTCRND“ 12%888)+1924 :POKERN, 46: RI=INTCRND<C1IM1S) 
1982 POKES4272+RN,RI:NEXT 

1998 PRINTRIGHT$<LA$,LAISLEFTFCLAF,RAYRARRZ-1:LH=LZ+ 

1995 PRINT"WSSCORE :"SC,,"ZEIT :"RIGHTSCTIS,2)- 

2888 PRINT"TI"; 

2881 IFPEEK(283)=54THENKYZeK'YA-5: POKES3249, KA: IFKYA=<C1SBTHENABRB 
2082 IFPEEK(283)=18THENSPA=SPA+25 

2883 IFPEEK(283)=53THENKYA=KY%+5 :POKES3249,, Kr: IFKYAD=1SBTHENASBR 
2864 IFPEEK(283)=13THENSPZ=SPX-25 

2885 IFPEEK(203)=68THEN19888 

28083 FORWR=1iTOSPA:NEXT 

2818 IFRZ=1THENRZ=39:L%4=1 :NE=NEM-1 :FAZ=FAZ+NE :PRINTCHRECFAZ) PRINT"; 
3828 PRINT"!TI" ; :GOTO1998 

4288 FOKES3271,8: POKES3277 ,8:60102982 

45808 
18888 POA=927+4@W INT CKYA/B) :PHA=PEEKC1847) 

18885 IFT1$>"808025" THENAE=1:G0T012888 

18818 FORQWU=POXTO1847STEP4@ 

10028 POKEQU, 66: POKES4272+QW, 12: POKERW-48, 32 

18825 NEXTQW 

18826 FORD1=1T012: IFPHZ=PEZCO1>THENI 1908 

18827 NEXTO1 

12848 GOTO2B12 

11888 IFO1>7THENSC=SCHB:PX%=PX%+1 : IFPXA>4THENSC=SCH 98: G0T011812 

11885 IFOi>7THENZBIB 

112198 AscO1)=" ":LAF="":FOROA=1TOB:LAS=LAS+ASCHR) | NEXT ISC®SCHS 

11828 IFLAg=" "ANDTIS<"080825" THEN12288 
11832 GOTO291D8 

12888 FOKEV+21,8: TM&=RICHTECTIS,2) 

12210 DE=8:Di=1:FORDF=1T025: DE=DE+D1 :D1=D1#-1 :POKES3288, DE: POKES3281 , DE: NEXT 
12815 IFAE>BTHEN13088 

12028 POKES3288, 8:POKES3281 ‚8: PRINT" TRDODDDEBBBHERZLICHEN GLUECKWUNSCH I 11" 
12030 PRINT"WIESIE HABEN GLUECKLICHERWEISE DIE" :PRINT"BIR";AN;".RUNDEM IN EINER" 
12035 PRINT"WEEIT VON : MB"; TM&;" SEKUNDENMM GESCHAFFT": IFAZ=iTHENIGBBO 

12837 PRINT"WISIE HABEN JETZT 38" ;SC; "PUNKTE" 

12048 PRINT"WIICH WUENSCHE IHNEN VIEL GLUECK.":PRINT"MIIN DER NAECHSTEN RUNDE" 
12058 AN=AN+1: PRINT" WIDBMEITERSPIELEN CNRECHSTE RUNDE) : MAN" :J=AN-i 

12052 PRINT" WRUFHOEREN : u" 

12853 IFPEEK(283)=18THENONJGOTO12856, 15928 

12054 IFPEEK(283)=13THEN13878 

12055 GOT012853 

12056 PRINT" ZOODMWIICH BEGRUESSE SIE HIER BEI DER" 

12057 PRINT" WIR2.RUNDEM MEINES SPIELES. IHRE AUFGABE" 

12058 PRINT"MIST ES,MIT IHREM SHELICOPTERM DURCH DIE" 

12859 PRINT"WHOEHLE ZU GELANGEN.ABER SACHTUNGE, " 

12060 PRINT"WBDENN ES WIRD SCHARF GESCHOSSEN" 

12061 PRINT"BIBRECHTS : r 

12862 PRINT"ILINKS : 
12863 PRINT'"WRUNTER : Ge" 
12064 PRINT"IDBWENN SIE BEREIT SIND," 

12067 FRINT"WIDRUECKEN SIE BITTE SRETURNE" 

12868 IFPEEK(283)=1THEN12878 

12069 GOTO12B68 

12878 PRINT" :POKES3288, 11 :POKES3281, 11: Hei: FAm1:KO4=15:BRZ=18 

12071 v=53248 : POKEV+21.2:POKE2941,14 

12872 FORN=BTDE2 : READU : POKEBIG+N, Q: NEXT :KXY4=152:KY4=184 :POKEV+4B, 1: POKEV+23,2 
12873 POKEV+29, 2: POKEV+2,KX% 

12874 POKEV+3,KYA 

12075 FORDU=1T025:RNZ=INTCRNDCIIMA4)+1 

12888 ONRNAUOTD12118, 12228, 12328, 12428 

12118 ND%=165 

12128 IFLEZ=1B89THENKOA=KOX+1 

12122 IFLEZ<>167THENLEA=NDA 

12130 GOTD12588 

12228 NDA4=189 

12238 IFLEA=1B90RLEH=167THENKOZ=KOK+ 

12248 LEZ=NDZ :GOT012588 

12328 ND4=11B8 

12338 IFLEZ=11BORLE4=165THENKOZ=KOX-1 

12349 LEZ=NDZ:G0OT012588 

12428 NDA=167 :PRINT"TITITITITIT  ————— 

12422 PRINT"T NMDNDKDEIKDIRDEN!" 

12438 IFLEZ=11BTHENKOK=KOZ-1 

12432 IFLEZ<>16STHENLEZ=NDZ 

12589 IFKO%=QTHENLEZ=189:KOA=KOR+1 

12581 IFKO4=22THENLEA=119:KOX=KOR-1 

12582 IFPEEK(203)=1BTHENKXA=KXZ-8 : POKES32SB,KR% 

12583 IFPEEK(203)=13THENKÄZ=KXZ+B : POKESI2SB, KR 

12505 IFPEEK(2837=S3THENKYA=K'Y%+4 :POKESIZS1, KT 

12506 IFPEEK(S3279)=2THEN12538 


























PRINTTAB<KOA) SCHRELLEZ) 5 TABCKOZ+ERA) ; CHRECLEZ) :NEXTDU FA=FR#-1 :HLI=HUIHFA 
PRINTCHRECHUD 5 "71": BRA=BRA-1 : IFBRA=9THENI3198 

GOT012875 

FA=1:WE=1: FORMA=1T025 : POKES3288, FA: POKES3281 , FA WE=WUER-1: FA=FA+WE NEXT 
FOKEY+21,8 

FRINT'"TIIIWBLEDER HAT EINMAL PECH":PRINT"MES TUT MIR HERZLICH LEID,ABER" 
PRINT'"MWEIE HABEN DIE MAUER DES GANGES" :PRINT"WEBERUEHRT." 

PRINT"SMDIES HATTE SCHLIMME FOLGEN." :GOT013825 

POKES3281,8:POKES3288, 18 

5 PRINT'TIMDBSUEDER HAT EINMAL PECH.ES TUT MIR" :PRINT"MIHERZLICH LEID, ABER" 
PRINT"EIE KÜNNTEN DIE BARRIKADE NICHT" :PRINT"MBIIN DER LIMITIERTEN ZEIT" 
PRINT"MENTFERNEN. " 

5 FRINT'M INEUES SPIEL : SRETURNE" 

PRINT" BIBEENDEN : SPACE 

IFPEEK(283)=1THENd 

IFFEEK(203)=68THEN13878 

GOT013848 

PRINT" TRDRUIIEEEEREREUF WIEDERSEHEN" 

FRINT"IDBRN| BIS ZUM NAECHSTEN MAL" 

GOTÜ13898 
FRe1:WE=1:FORMA=1T025: POKES3288, FA: POKES3281 , FR: WE=WER-1:FA=FA+UE : NEXT 
FOKEV+21,8 

PRINT" TIOISBHERZLICHEN GLUECKWUNSCH" :PRINT"IBBSIE HABEN DIE d";AN;" RUNDER" 
FRINT"WIERFEKT GEMEISTERT" :GOT012848 

FRINT"TTIWIICH BEGRUESSE SIE HIER BEI DER" 

PRINT" WISS. RUNDER MEINES SPIELES. JETZT " 

PRINT"MIST ES IHRE AUFGABE,DEN HUBSCHRAUBER" 

PRINT"MEZU LANDEN,UM RUFZUTANKEN. " 

FRINT"MEBIE HABEN #5 SEKUNDEN® ZEIT" 

PRINT"WISONST STUERZEN SIE AB." 

FRINT'" MOBRECHTS : SS" 

PRINT"WLINKS | 

PRINT" WHOCH = am" 

PRINT"WRUNTER : ei 

PRINT"WLANDEKNOPF : BSPACER" 

PRINT" OBBRBBELIENN SIE BEREIT SIND BITTE" 

PRINT"IBBBBIGRETURNE DRUECKEN. " 

IFPEEK<283)=1THEN14088 

GOT013999 

PRINT"N" :v=53248 : POKEV+21 4: POKE2842, 15: FORN=BTO62 :READQ :POKEISO+HN, NEXT 
FOKES3288, 2: POKES3281,2 


FOKEV+23, 4 : POKEV+29, 4: KX4=48 : KY4=48 : POKEV+41 5: POKEV+4, KX% : POKEV+S, KV 
PO%=1522 :W5=68 : 2=18: PRINT " KOKDDKNDKDUKDNDDKDDDEKDOENISTIME: ":TI&="ARBRaR" 
RNA=INTCRNDE 1343 +1 
ONRNAGOTO14948, 14852, 14868, 14878 
FOA=PO%+1:GOT014888 
POR=FOR-1: GOT014888 

4-48 :GOT014858 


IFPOR<1184THENPOZ=POR+40 

IFFOR>1823THENPOR=POR-42 

FOKEROR, 86 : POKES4272+P0OR, INTSRNDC1Y#159+1:POKELER, 32: LEX=POR 
IFPEEK (283) = 18 THENKXZ=eKXZ-8 : POKES3252, KK 
IFPEEK(203)=13THENKXA=KXZ+B : POKES3252., KKA 

IFPEEK (289) =53THENK'YZeK'Y%+8 : POKES3253, Kr’ 

IFFEEK (2837 =54 THENK'YA=K'Y%-8 : POKES3253, KrA 
IFPEEK(283)=68THEN15888 

FORUA=1TOWS : NEXTUR 


345-VALCRIGHTECTIS,22) 
IFTI4=) "098245" THEN14148 
GOTO14829 
FA=1:WE=1: FÜRMFI=1T025:POKES3288, FR: POKES3281 , FA WERWER-1:FA=FA+UE: NEXT 
POKEV+21,8 
PRINT" TIODMNEDER HAT EINMAL PECH" :PRINT"MES TUT MIR HERZLICH LEID, ABER" 
PRINT"MEIE KONNTEN DEN SHELICOPTERE" :PRINT"SBNICHT IN DER LIMITIERTEN" 
PRINT"MEEIT LANDEN" 
PRINT"MWIDIES HATTE SCHLIMME FOLGEN. ":GOT013925 
IFPEEK (B63+CKXA/B) +40 CK 4/8) )=BGTHEN13928 
GOT014181 
POKEV+23, 8: POKEV+29, 8: POKEY+4, KX4+8 : POKEV+S.KY%+B 
NI=4 :NU=B : FOROGI=1 7031 :POKEY+21,NI:NH=NI :NI=NU :NU=NH : NEXT :POKEY+41, 18 
AZ=1:G0OT012088 
PRINT'"MBESIE HABEN HIERMIT IHREN FLUGZEUG-" 
PRINT"MISCHEIN BESTANDEN. ":GOT013925 
DATRB, 255, 255, 255,8,8,8,1,254,8,1,2,7,1,2,15,1,2,15,63, 255,8,64,3,254,128 
DATA2,8,129.2,8,128,2,8,127,252,8,8, 16,0, 136, 17,8, 127,255,8,8,0,8,8,8,8 
DATAB,8.8,9,8,8,8,8,0,0,8,8,63,253,252 
DATAB, 24, 8,8, 127,0,8,129,8,1,0.128,1,8,129,1,8,128,1,129,128,1,126,128 
DATA1,129,128,1,8,128,B,129,08,8,255,8,8, 129,0,1.8.128,6:8,96,6.8.96 
DATRB,8,8,8,8,2,90,8,0,8,9,0,8,9,8,3,128,8,12,96,8,16.24.,8,.32,4,0,64,2,08 
DATA129, 129, 255,129, 129,4,64,2,31,32,4,8,16,24,8.12.96,8,3,128,8,8,8,8,8 
DATRB, 8,6,8.8,0.0,0,0,8 





COMMODORE 64 





Spukschloß ist in erster Linie ein Gedächtnisspiel. Man muß sich, mit ein paar 
Hilfsmitteln ausgerüstet, durch ein gefahrvolles Spukschloß schlagen, um Schätze zu 
sammeln. Das Spukschloß selbst ist labyrinthartig angelegt. Aus jedem Raum führen 3 
Türen in 3 weitere Räume. Durch Eingeben der Raumnummern begibt man sich in 
dieselben. Die Zuordnung der Räume wird bei jedem Spiel neu geschaffen, und zwar 
per Zufallsgenerator. Dadurch kann es passieren, daß der Computer sehr lange in der 
Raumverteilungsschleife bleibt, wenn er einen ungünstigen Wert aus dem 
Zufallsgenerator bekommt. Das merkt man daran, daß der Rechner sich nicht mit 
”Alles klar?” meldet. 

Das Beste ist dann, das Programm abzubrechen und neu zu starten. Alles Weitere ist 
im Spiel selbst erklärt. Der Reiz besteht natürlich darin, ohne Papier und Bleistift 
durchzukommen. 


10 Homecomputer 


Spukschloß 


für den Commodore 64 
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DATA BECKER 


DIE NEUEN 
DATA BECKER 
BÜCHER 


Die Heimcomputerwelle rollt und 
allen voran die COMMODORE Com- 
puter mit ihrem fantastischen Preis-/ 
Leistungsverhältnis. Wer die viel- 
seitigen Möglichkeiten seines Heim- 
computers ausnutzen möchte, der 
braucht dazu entsprechende Infor- 
mationen und Programme. Beides 
finden Sie in den neuen DATA BECKER 
BUCHERN und PROGRAMMEN. 
Geschrieben wurden Bücher und 
Programme in Deutschland von 
Experten, die die COMMODORE 
Computer in- und auswendig kennen 
und gerne ihre Kenntnisse weiter- 
geben. Klar, verständlich und mit 
vielen Beispielen - mit DATA BECKER 
BÜCHERN und PROGRAMMEN 
machen Sie mehr aus Ihrem Com- 
puter. 








DA BLEIBT KEIN 











Wir sind Montag bis Freitag 
und anallen langen Samstagen von 
10-18 Uhr für Sie da. 








EIN Dara BECKER Buch 
IN Dura BECKER auch 






64 INTERN erklärt 
detailliert Technik 
und Betriebssystem 
des C-64 und die 
Programmierung von 
Sound und Graphik 
Ausführlich doku- 
mentiertes ROM- 
Listing, zahlreiche 
lauffertige Beispiel- 
programme und 2 
Original-Schaltpläne 
zum Ausklappen. 
Dieses Buch sollte 
jeder 64-Anwender 
und Interessent 
haben 

ca. 320 S.;DM 69,- 


64 TIPS & TRICKS ist 
eine echte Fund- 
grube für jeden 
COMMODORE 64 
Anwender. Umfang- 
reiche Sammlung 
von POKE's und 
anderen nützlichen 
Routinen, BASIC- 
Erweiterungen, 
Graphik und Farbe 
für Fortgeschrittene, 
CPIM, Multitasking, 
mehr über Anschluß- 
und Erweiterungs- 
möglichkeiten und 
zahlreiche lauffertige 
Programme 

ca. 290 5.; DM 49,- 


DIE NEUEN 
DATA BECKER 
PROGRAMME 


Der COMMODORE 64 ist ein Super- 
computer zu einem schon fast 
unglaublich niedrigen Preis. DATA 
BECKER präsentiert Ihnen jetzt hierzu 
eine passende Software-Serie: aus- 
gereifte, professionelle Programme 
mit hervorragenden Leistungsmerk- 
malen und detailliert beschrieben, bei 
denen nur in einem Punkt ein Kom- 
promiß gemacht wurde - beim Preis! 
Jedes einzelne dieser ausschließlich 
auf Diskette gelieferten Programme 
kostet sage und schreibe nurDM99.-. 
Hier zwei aktuelle Beispiele: 


In unserem 1000 qm großen 

Ausstellungszentrum in Düsseldorf 

finden Sie 

®@ führende Computermarken des 
Weltmarktes vom preiswerten 
Homecomputer bis zum Büro- 
system mit Festplatte 

® vielseitige Peripheriegeräte von der 
Maus über den Spezialdrucker bis 
zum Netzwerk 

® eine riesige Softwareauswahl 

@ Europas größte Auswahl an EDV- 
Literatur 

© qualifizierte Beratung durch über 
20 geschulte Fachberater und 
Software-Experten 

® Schulungen und Seminare 





Englisch "Seczenanowaki 


EIN DaTa BECKER Buch 





EIN Dara necKen Buch 


64 FÜR PROFIS 

zeigt, wie man erfolg- 
reich Anwendungs- 
probleme in BASIC 
löst und verrät 
Erfolgsgeheimnisse 
der Programmier 
profis. 5 komplett 
beschriebene, lauf- 
fertige Anwendungs- 
programme (z.B 
Adreßverwaltung) 
illustrieren den Inhalt 
der einzelnen Kapitel 
beispielhaft. Mit 
diesem Buch lernen 
Sie gute und erfolg- 
reiche BASIC- 
Programmierung 

ca. 220 S.; DM 49,- 


DAS GROSSE 
FLOPPY-BUCH erklärt 
detailliert die Arbeit 
mit der Floppy 
VC-1541, von der 
sequentiellen Daten- 
speicherung bis 

zum Direktzugriff, für 
Anfänger, Fort- 
geschrittene und 
Profis. Ausführlich 
dokumentiertes 
DOS-Listing, zahl- 
reiche lauffertige 
Beispiel- und 
Hilfsprogramme, z.B 
Disk Editor und Haus- 
haltsbuchführung 

ca. 320 S.; DM 49,- 


DATAMAT 


Eine universelle Dateiverwaltung, die 
Sie von der Adressverwaltung über 
Mitgliederverwaltung bis hin zur 
Lagerbuchführung auf vielfältigste 
Weise nutzen können. Die frei gestalt- 
bare Eingabemaske kann bis zu 50 
Felder, max. 40 Zeichen pro Feld und 
bis zu 253 Zeichen pro Datensatz 
enthalten. Bis zu 2000 Datensätze 
pro Diskette sind möglich. Nach allen 
Feldern kann selektiert und sortiert 
werden, sogar nach mehreren gleich- 
zeitig. Auswertungen können als 
Listen gedruckt oder in eine Datei als 
Verbindung zu TEXTOMAT geschrie- 
ben werden. DATAMAT ist (natürlich) 
menuegesteuert, in deutsch und 
dadurch extrem bedienerfreundlich. 
Ein Superprogramm, das zu jedem 
64er gehören sollte. Komplett mit 
umfangreichem deutschen Hand- 
buch nur DM 99,-. 


Unser 80 (!) sei 
Angebot rund 
VC-20, mit der 


. “ aus aller Welt. 
VC-INFO 3/83 sollte jeder Computer-Intei 
haben. Fordern Sie es noch heute gegen 
DM 3,- in Briefmarken an. 





MACHT MEHR AUS IHREM 
COMMODORE COMPUTER 







N Tips & Tricks 


Kim Funagruoe ti den 


EIN DaTa BECKER Buch 
EIN Oara BECKER auch 





VC-20 INTERN ist für 
jeden interessant 
der sich näher mit 
Technik und Maschi- 
nenprogrammierung 
des VC-20 auseinan- 
dersetzen möchte. 
Detaillierte tech- 
nische Beschreibung 
des VC-20, ausführ- 
liches ROM-Listing, 
Einführung in die 
Maschinenprogram- 
mierung und 3 Origi- 


VC-20 TIPS & TRICKS 
ist eine echte Fund 
grube für jeden 
VC-20 Anwender 
Sound und Graphik 
Programmierung, 
Speicherbelegung 
und Speichererwei- 
terung, BASIC-Erwei 
terungen, POKE's 
und andere nützliche 
Routinen, zahlreiche 
lauffertige Beispiel- 
und Anwendungs- 
programme und 
vieles andere mehr 
ca. 230 S.; DM 49,- 


nal-Schaltpläne. 
ca. 230 $.;DM49,- 


TEXTOMAT 


Ein außergewöhnliches Textverar- 
beitungsprogramm: 80 Zeichen pro 
Zeile durch horizontales Scrolling, 
Ausdruck bis zu 255 Zeichen, 
Textlänge bis zu 24000 Zeichen im 
Speicher, Verketten von Texten, 
umfangreiche Textbausteinverarbei- 
tung und Formatierungsmöglichkeit, 
Formularsteuerung, Anpassung an 
unterschiedliche Drucker, Disketten- 
verwaltung, umfangreicher Befehls- 
satz, Schnittstelle zu DATAMAT zur 
Erstellung von Rundschreiben mit 
individueller Anrede. TEXTOMAT ist 
komplett in Assembler geschrieben 
und extrem schnell. Menuesteue- 
rung, deutsche Benutzerführung und 
ausführliches deutsches Handbuch 
machen gerade auch für Anfänger 
die Arbeit mit TEXTOMAT zum Kinder- 
spiel und das zu dem sagenhaften 
Preis von nur DM 99,-. 


WUNSCHOFFEN — UND DA STEHT ALLES DRIN! 


itiger Spezialkatalog mit dem riesigen 
um COMMODORE 64, EXECUTIVE und 
großen Druckerauswahl vom kleinen 


Listing-Drucker über Vierfarbplotter und Typenrad- 
drucker bis zum Schnelldrucker mit Einzelpunkt- 
graphik und Schönschrift, mit preiswerten Floppies, 
Monitoren und weiteren vielseitigen Peripherie- 
geräten, mit IEC-Bus und 80-Zeichen-Karte, 

mit universellen Interfaces und Erweite- 
rungsmodulen, mit preiswerten neuen 
Programmen aus aller Welt vom 
Spielehit bis zur Fakturierung 
und mit aktueller Fachliteratur 


Das neue 
ressent 



















An a 
IHR GROSSER PARTNER FÜR KLEINE COMPUTER ES 
DR) 
PR 
ES 
EEE 
SEHE 
EIS 
ERS 
? Ro ES 
Merowingerstr. 30 : 4000 Düsseldorf : Tel. (0211) 3100 10 - im Hause AUTO BECKER 2 
DATA BECKER BÜCHER und PROGRAMME erhalten Sie im Computer-Fachhandel, in den Computerabteilungen der Kauf- E 
und Warenhäuser und im Buchhandel, Auslieferung für Österreich Fachbuch-Center ERB, Schweiz THALI AG und EN 
Benelux COMPUTERCOLLECTIEF OR 
RICHT 
ERS 











PRINT" TION" SPCC13>" SPUKSCHLOSS" 
PRINT'MERBBBBI EIN SPIEL VON STEPHAN FROEHLICH" 
DIMAS(28),KI$169,K$(49) ,K(49,2) 
GOSUB1188 
FORI=1T02098 :NEXT 
POKES3288, 14 : POKES3281,6:PRINT"IJ" 
A$(C27)="ZAUBERER ":A$C7)="VORRATSKAMMER" :ARCB)=" AUSGANG 
ASC9I="DRACHEN ":ASCIO)="TROLL ":ASCILI="FLEDERMAUS " 
FORI=1T03:A$C20+1)=A$C19) :A&C23+1)>=ASC11):NEXTI 
RECZBI="CAPE" 
A$(12)="FEUER" :A$C13)="ABGRUND" :ASCE)="" 
FORI=14T028:A$< 1)="KAESTCHEN" :NEXTI 
KI$CO)="SEIDE" :KI$C1I="SILBER" :KIS’2)="GOLD" 
KI£C6)="LIAMANTEN" 'KI$C4)=" SCHMUCK" :KIECHI="EDELSTEINE" 
KI$C3)="SMARAGDE" 

PRINT"TIWESIE BEFINDEN SICH IN EINEM SPUKSCHLOSS." 
PRINT"IWEDER RAUM FUEHRT ZU DREI ANDEREN " 
PRINT"IRAEUMEN, DEREN NUMMERN SIE SICH MERKEN" 
PRINT"ISOLLTEN,UM WIEDER HERAUS ZU KOMMEN." 
PRINT"IBIIHRE AUSRUESTUNG :"SPCA3)"GEGEN :" 
PRINTTAB(SPASCO)TABC2SIAFC1E) 
PRINTTAB<SIASCIITABCZSIAFCIZI 
PRINTTAB<SIASCZITABCZSIAFCLE) 
PRINTTABCSIAFCHITABCZSIAFCI2I 
FPRINTTAB(SIASC4) TABCZSIAECH) 
PRINTTABEDASCSITABCZSIASCIO) 

PRINT" WBERUBERWURZEL,SEIL UND WASSER KOENNEN" 
PRINT"INUR EINMAL VERWENDET WERDEN.DIE FLE-" 
PRINT"MIDERMAUS KANN IHRE RUSRUESTUNGSTEILE" 
PRINT"MODER PUNKTE STEHLEN. IN DER VORRATS- 
PRINT" 

PRINT"BERGRENZEN.WENN SIE DEN VERSTECKTEN" 
PRINT"SITARNMANTEL FINDEN,KOENNEN SIE AM" 
PRINT"MDRACHEN VORBEISCHLEICHEN.DER ZAUBERER" 
PRINT"NGIBT IHNEN EIN PAAR TIPS." 
FORI=1T018808 :NEXT 

FORL=8T049 :FORI=BTDZ:KCL, I)=64:NEXTI:NEXTL 
FORL=8T043 

C=64:1=64 

FORI=8T02 

IFK<L, II<CDE4THENSER 

BCID=L+INTCRNDC1IMCSB-L)) 
IFB<ID<=LORB< I)=CORBC I) =DTHEN32S 

FORJ=8T02 

IFKCBCI), JI=64THEN3SS 

NEXTI 

G0T0325 

K{B<CID,TI=LiK<L, DI=BS I) DeC:C=BCI) 

NEXTI 

NEXTL 

PRINT"MOBIACH JA,WARUM SIE HIER RUMRENNEN SOLLEN ?" 
PRINT"IBIINA UM SCHAETZE ZU SAMMELN 1" 
FORL=8T043 

KecL)e" " 

NEXTL 

I=INTCRND<C13449+1):J=7 

IFK&CI2<>" "THENI=I+18:G0T0488 

KECDeASCJ) 

IFJ=Z8THENS8O 

I=I+INTERNDCIIWMIHLD Im J+1 

IFI>49THENI=1-49 


BI ALLES KLAR"; : INPUTCH 


PRINT" WEBI MACHT NICHTS" :FORI=1T01888:NEXT 
Red:Z=i d 

PRINT"I" 

FORL=8T039 

ROKE(1824+L) , 168: POKE(SS236+L),B:POKE(1984+L), 168: POKE(56256+L), 8 
NEXTL 

FORL=1T019 

POKE(1344+L) , 160: FOKE(SS616+L) ,B:POKE<1664+L), 168: POKE(SSISS+L),D 
NEXTL 

FORL=1T023 

POKE<1063+40%L) , 168: POKE(SS335+40%L),8 
FOKE(1844+498%L) , 168 :POKE<SS316+4B%4L): 8 
POKE<1824+40%L) , 168: POKE(SSZI6+404L),8 

IFL=30RL=40RL=STHEN?48 

IFL=110RL=120RL=13THEN?48 

IFL=1SORL=280RL=21 THEN?48 

GOTO7S8 

POKE(1844+40%L) , 66: POKE(SS316+48%L),0 

NEXTL 

PRINT" SODNRRAUM "KCR,BITABCIBI" RAUM "R 

PRINTTAB<23) "AUSRUESTUNG : #0" 

FORI=E£TO& 

PRINTTAB<ZSIRECII 

NEXTI 

FRINT"IBRAUM "KCR,1) 

FRINTTAB(23> "FUNKTE :"P 

FRINTOOISBRAUM "KCR,2):LR=R 

















PRINTTAB<SZIY" WELCHEN RAUM"; : INPUTR 
IFR>43THENSSO 
IFR=LRTHEN1988 
IFR<DKCLR, ®ANDR<DKALR, LPANDR<CIKCLR, 2) THEN1I8B 
FaLENCKECRI) 
ON F GOTO2088, 2088, 1898,991,928.938, 948. 958, 968, 1818, 1888, 1048, 1978 
GOSUB1688 
"THEN1488 
:GOT0688 
GOSUB1698 
IFA$<CO)=" "ANDAFCSI=""THEN1488 
GOTOSBB 
GOSUB168Q 
IFA&<C1}=""THEN1488 
A&C1)="":GOTO698 
GUSUB1608 
"ANDA&(EI=""THEN1488 
GOTOSBS 
GOSUB1788 
IFAgSC2)=""THENISO 
PRINT" TDOUOBEBISIE ERBEUTEN "KI&<Z)" IM WERTE VON" 
IB88 PUNKTEN" :P=P+388 


PRINT"OIBBBEIE HABEN INSGESAMT "P" PUNKTE." 
FOR1=1T04888 : NEXT : GOTO638 
PRINT" TIOOORBBLEIDER HABEN SIE KEINEN SCHLUESSEL MEHR" 
PRINT"WEIBNIELLEICHT KLAPPT ES BEIM NAECHSTENMAL" :FORI=1T04988 : NEXT: GOTOGBB 
FORQ=8T028 :POKES3288, 2: POKES3281 2: POKES3288, 7 :POKES3281,7:NEXTO 
POKES3281 ,6:POKES328B, 14: PRINT" TDOEDER" 
PRINT"IBBSIE ERBEUTEN DEN TARNMANTEL" :AFCS)=AFC2B) 
FORI=BT01888::NEXT 
K£CR)=" ":GOTOSER 

PRINT"TDOBBHIER IST ZUAR EIN KRSTCHEN " 

BIRBER, DAS HABEN SIE WOHL SCHON" 

PRINT"WBLEERGEMACHT." 

FORI=87T03588 : NEXT :GOTO6O8 

POKES3288, 8: POKES3281,8 

PRINT" MUDODMBBIDER ZAUBERER VERRRET IHNEN DENM " 
PRINT" INHALT VON VIER RREUMEN :" 

A=64 : Bei 

FORL=1T04 

G=INTCRND<C 1359) 

IFG=RORG=AORG=BORG=CTHEN1824 

PRINT"HRAUM"G":"K#CG)" TUER ZU:"KCB,8);5KC0, 1)5K0,2) 
A=B:B=C:0=G 

NEXTL 

FOR 1=171015980 NEXT: POKES3281 , 6: POKES3288, 14: PRINT"I" :GOTOGBB 
GOSUB16B8 

G=INTCRND<1>M3+1) 

ON @ GOTO 1888, 1868, 185 

Q=INTCRNDC LIE) :A$CA)="" :GOTOKOD 

GOSUB170D 

GOSUB1198 

GOTO6BO 

P=P-INTCRNDC1IMKP/Z>) :GOTOSBB 

AFCDI="MESSER" :ASC1I="SEIL" :ASCZI="SCHLUESSEL" 
A$<3)="WASSER" :ASC4)=" ZAUBERWURZEL" ASCHI="LICHT" 

RETURN 

FOR1=1T03: FORJ=8T015: POKES3288, J:POKES3281, J:NEXTJ:NEXTI 
POKE 53288, 6: POKES3281 , 14: PRINT"IM" 

PRINT"MMBESIE HABEN JETZT ‚DA SIE IM SPUKSCHLOSS" 
PRINT"MBIIHR LEBEN GELASSEN HABEN,DREI MOEG-" 
PRINT"IBLICHKEITEN :" 

PRINTTAB(18)"1. BEI PETRUS HOSIANNA SINGEN M" 
PRINTTAB<18>"2. BEIM TEUFEL KOHLEN SCHIPPEN M" 
PRINTTAB(18)"ODER ES NOCHMAL PROBIEREN" : INPUTB# 

IF B#="J"THEN4O 

RESTORE :END 

PRINT"N" :POKES3281,6: POKES3288, 14 

PRINT" MOODOBBBIICH GRATULIERE" 

PRINT"BBBESIE HABEN SICH MIT "P" PUNKTEN" 

PRINT" IRUS DEM SPUKSCHLOSS GERETTETIDDDOE" 
INPUT"WOLLEN SIE NOCHMAL" ;B#:GOT01488 
POKES3288, 2: POKES3281 , 2: PRINT" TDNDNKDDODEN TAB< 173 "M" KECRI "I" 
' FORQ=1T01888:NEXTQ :POKES3281,6:POKES3288, 14 

RETURN 

FOKES3288, 5: POKES3281 , 5: PRINT" TIBOO" TAB LI "I KECRI "TI" 
FORQ=1T01888:NEXTQ :POKES3281,6:POKES3288, 14 

RETURN 

GOSUB1796 

PRINT" TIUOMBMOLLEN SIE AUFHOEREN" ; : INPUTB& 
IFB£="N"THEN1848 

GOTO1588 

GOTOSBE 

PRINT"" :D$="SCHUMMLER" 
FORQ=1T028:PRINTD$, D$, D#,D$:NEXTQ 

R=LR :GOTO608 

PRINT" ADB "TAB<30O)" 

PRINT " ONDEINDERIKD IS s 

PRINT" MOSER! 

PRINTTAB<32> 

GOTOSBBO 














Prallboard 


für den VC 64 


Eine besonders spielstarke und schnelle Version des legendären Break-Out mit toller 
Grafik und Supersound. 


Sie müssen mit ihrem Schläger einen 
Ball so abprallen lassen, daß dieser 
nicht aufden Boden fällt. Der Ball muß 
möglichst viele Steine aus einer Mauer 
schlagen, wofür Sie Punkte erhalten. 
Für je 5000 erreichte Punkte erhalten 
Sie einen Ball. Haben Sie die ganze 


Zum Programm: 


Mauer entfernt, wird eine neue aufge- 
baut. Wenn alle Bälle heruntergefallen 
sind, ist das Spiel zu Ende. Es wird eine 
"Hall of Fame” (Bestenliste) geführt. 
Gesteuert wird mit den Tasten N nach 
links und M nach rechts. Mit Space 
kann man das Programm unterbre- 


chen, miterneutem Drücken von Space 
weiter laufen lassen. 

Das Programm belegt7K Speicher. Der 
Schläger wird in Maschinensprache 
abgefragt und ausgegeben, um eine 
kontinuierlichere Bewegung zu errei- 
chen. 





100 - 160 Definition der Variablen / Ton wird initialisiert. 

170- 250 Die Mauer und die verbleibenden Bälle werden ausgegeben. (Zeile 
180-250 : Tasten [Space]: [Shift] [P]: [CBM][Y]: [CBM][N]). 

280 Computer springt in die Abfrage des Schlägers. 

290 - 300 Unterbrechung des Programms. 

310- 370 Bewegung des Balles. 

380 - 480 Löschen der Mauersteine. 

490 - 530 Abfrage: Extra Ball? Alle Mauersteine herausgeschlagen? 

540 - 560 Ball ist auf Boden gefallen. 

570- 710 Ausgabe "Game over”. 

730 - 870 Ausgabe der Erläuterungen und Schreiben des Maschinenprogramms. 

720 Tonunterprogramm. 

880 - 940 Ausgabe neuer Ball. 

950 - 990 Ton ausgeben und neuen Bildschirm aufbauen! 

1000 Warteschleife. 

1010 - 1240 Eingabe Initialen. 

1250 - 1410 Ausgabe Hall of Fame. 

1420 - 1450 Hall of Fame sortieren. 

1460 - 1490 Daten für Maschinenprogramm. 





KENSTR, 17: 
51° HAIBACH & 


ee 


156 
139 DIMT 
158 in 


1,81: FORESS23S-I. SreheRT 
120 FRINT" SEN Nr 
199 FRINT'IA I I I m 
rl PRINT TOO OTTOTDOTOTTTR 
ı8 FRINT"TA 
a PRINT TOT TOOITTOITOTTTTTE 
a FRINT'IA I I 1 8 1 [pl 
u Me 
sa PRINT" II I IS ET EEE TI TERRAIN 
15] FRINT "A QUR SCORE: "PUT" :FORISATC4GE NEXT 


Shrl: IFSkW=4THENSWU=8:57520481 


32 


379 POKEP1.31:FÜKEPI+S42 

550 DI=SFEEKIPI> 

>29 ONTCDD>GOTO419, 328,449. 460,450 

4ad GOTISZO 

410 Yi=-Hi EF1. 120: FOKEP1+54272, 11:FOK zu: IK 5 1:59T0258 

426 FOKEFI :FOKEP1+1. 32: PÜKEP1-49, 32: PÜh :FÜK :FOKESI #5 
430 GOTI43G 

446 FOKEF1,32:POKER1-1. 32: FOKEF1+39, 32: PÜKEP1+48, 32: FÜKESI, 7#8:POKESI. #5 
458 GOTO42G 3 

456 FÜKEP1.32:FÜKEP1+1,32:FOKEP1-39, 32: PFÜKEP1-48, 32: FOKEST, Y#8:FOKEST. 75 
478 GOTO43a 

455 FOKEF1,32:FOKEF1-1,32:FOKEP1-41,32:POKEP1-46, 32: FÜKESI, 7#5: FOKESI, 7#5 
429 FU=SPUHC LEWIS: AN=AN+L: IFANDFSTHENFN=B: GOSURSSO: FRINT"T":FOKE20488, 1:50T015 
4 

=50 PH=PN+L12-1)#5 

518 IFFN>SOS8OTHENFN=8: TA=TA+1:FOKE2G23-TA, 81: FÜKESSEPS-TA, F:GOSLUBSSE 

528 FRINT'SMOUR SCORE: B"PU"T" 

538. Y1=-T1:PÜKEF1.,81:FÜKEP1+54272,.7:60T0288 

549 8=8:81=1NTCS#ENDAL HI Ya21 1-1 

558 FÜKEZ823-TA,32 

S50 TA=TA-1: IFTA>=OTHENFOKESI+3, 33: FORI=TOT0189:GOSUEFZA: NEXT :ZR4=1:60T0270 
Ss78 FRINT'TIE RN 

536 PRINT" 

538 FRINT" 3 2 3 ze I 

E39 FRINT" ! 

518 PRINT" 

528 FORI=BTÜ1A:FOKESI. I#2: ERINT"SION"TARCED"NLL AM E-DN ":GOSUR1GGA 
538 FÜKESI a . IR ER) :SOSUBLEGE:NERT 
sda PRINT" 








TIESG:NERT:FOE 
IFFUS>HDTHENHD=F 'FRINTUNE VELL ZONE, NEW HIGHSCORE !1" 
sro GOSUP1O1O 
550 PRINT" NDONRTNDNOSOERUNENDSREINTETADRANN I -OR FLAFING AGAIN, FRE3SS ANY KEr I g" 
530 "AN=&: PU=8:FN=8: TA=2 
raa IFFEEK =3THENFOE 
r18 FRINT"TT':FÜKE20456.1 
r2a FOKESI.1-4:FOKESI.13:FOKE SI, 1/5:RETURN 
734 FRINT"IA ‚SE FOLLCNING KEYS 2 
748 FRINT"SIM re ge 
F58 FRINT" SSLEFTEEI <-- Sm ‚almn  EJI --> WA-ISHTE" 
reg FEINT"N — 
rrö FRINT'"SR DU MUST HIT MITH TOUR RACKET AHD A" 





FRINT"M BALL THE ERICKS GUT OF THE WALL ! «F" 

FRINT"M THE EALL IDROPS DOWN THE FLÜÖR YOU GET" 

FRINT"M A NEM ONE. #T BEGINNING YOU HAYE THREE" 

FRINT"N EALLS, BUT ZWERT Sa06 POINTS YOU GET" 

FRINT"M CHE MORE. OHEN NO BALLS ARE LEFT. OU" 

FRINT"N LOSE AND THE GAME BREAK 

PRINT"NEIQ ®LL RIGHT ? HEN PRESS ANY KEY I 

=rag: FÜRI=204397025549 RERDR:FOKEI ji A 3 

Y='r-1: IFY>ORNDPEEK (203>=S4ANDFEEK 6S32=8THENSSO 

RETURN 

FRINT'SPOUR SCORE: R"FU"T":FÜKESI+S:. 65 

FÜKEF1,81:FOKEP1+54272, 7:FORI=9T0108 

FRINT " SISISIRINTEIRIRTSISDRTSTRINTRISE I" TAB CE > "ke NEW ERLL ! Fe" 

FÜKESI., I:FOKESI. 1I2:FOKESI. 1538-1 

FRINT " STRINISIRTRIRTRINTRTNINTRIRTSTI TEN" TABSSH "EEE NEL: Li ER 

HEXT : PRINT" SIRIMIRISIRISIRISTAIRTEINISIKTEN" TE AIRISTRIeIRTRIEl" 

FÜKESI+3, 17: RETURN 

. FRINTSPOUR SCORE:R"FU"T" FIKESI+HS.65 
FORI=ATO188:FOKESI+2, 17:POKESI. 173 FOKESI+3.33:POKEST, 12.5 
"8-FÜKEF1.51:FÜKEPI+S4EFE,T 

FÜKESI+3,85: FOKESI , 99-172: NEXT 

FOKESI+S, 17: RETURN 
FCRI=OT0198: HEXT RETURN 
FEINT " SISIMISIEDRISTRIRIRTETE) ErSe GIVE YOUR INITIALS :" 
PRINT" n SF 
FRINT"3 f SDOHN 
PRINT" CE ® > BEI 
PRINT" TION" TABC1SI"-——" 5 
FRIHT" SIRIRISISISIKTKTSIRISTRISTEIRTKTRII" : FOKESSO, 125: LE=64  LEF=""  FOKESTI#HS. 65 
FÜRI=ETOE 
GETA& : IFA$CH"M"ANDASCH"N"ANDAFCH" "THEN1OS8 
FÜKESI.LE:FOKESI.LE/3 
IFA$="M"THENLE=LE+1 : IFLE>SOTHENIFLE<3STHENLE=9S 
IFA$="M"THENIFLE>SSTHENLE=45 
IFA$="M"THENIFLE>4STHENIFLE<SSTHENLE=65 
IFA$="N"THENLE=LE-1: IFLE<4STHENLE=3S 
IFA£="N"THENIFLE<3STHENIFLE>PATHENLE=38 
IFA£="N"THENIFLE<ESTHENIFLE>4STHENLE=45 
IFA$<>" "THEN1224 
IFLE=3STHENLE$="" : 1=9: PRINT" SEIRIMISIGRISUTEINIIRIEINISIRIN" TAB CS" ---"LE=65:G0T0122 


IFLE=45THENLE=32: 60701298 
LE=SLE+128 
LE$=LE$+CHRFCLEI: FORJ=BTO188: NEXT :FOKESI,0:LE=45 
PRINT " SIMTRIKIRTSTSTSTATRISTATRTETISINEN" TAB LS) LES: GOTO12SO 
IFLECDASANDLEOOSSTHENZE=LE+128 60701246 
POKESI ‚8: PRINT " AINIMINIRINIINISTRISTSISIKINTSTKSIO" TAB< 18+ LICHRECZE) :GOTU1988 
NEXTI 
, PRINT " STRIRTINIRISTEINTETN ' 
FRINT"M ' 
FRINT" 
PRINT" 
a PRINTTAIINTABEIES" 
FORI=1T024 
IFFU>HDEISTHENGOSUEIS2G: I 
HEXT 
IFLE<}4STHENZE=SLE+32 
PRINT" STSININISTaTnteTnKi 2 } = FAME: zu" 
FORI=1TU1E:FRINT"N"; 
a PRINTTABCSIRISHTSE" "ASTREEIY,DI" WIRIGHTEC" "HSTRECHKIII.GDG 
FRINT" MUHDECIH"N"; 
" 1339 PRINTTAELZSNRIGHTEE" NASTRSCIHLEI.2I" AURIGHTEC" BASTRECHDEI+1223.6 
1409 FRINT" MHDSLI+H2H 
1418 NEXT: RETURN 
1428 FÜORI=24TOISTER-1 
1438 HDCIP=HDCI-13:HESCTS=HDSLL 
1440 HEXT 
1459 HDCID=FU:HD 
1460 DATAL. 154.29 
1478 DATA1S3.1 
J 


"1439 ‚142,38, 
1459 DATRISI. Bo 





HOW TO BEAT 
ANY VIDEO GAME 
SINGLE-HANDED. 


WITH THE QUICK-SHOT" 
JOYSTICK CONTROLLER 


FOR ‚USE ON THE 


SYSTEMS 
* NEC PC-6001 COMPUTER 
speed. (We didn't call it Quick-Shot for 
nothing.) You also have the option to use 
the left hand fire button simultaneously. 
The four removable suction cups hold the 


entire joystick firmiy on any surface. I also comes with a long cord. 
do it all single-handed: control and fire at the same time. With all those superior features in one joystick, you know you got 


One look at the handle and you know you'll have a better grip on yourself a winning combination. And when it comes to beating video 
your game. Is contour design fits comfortably around your palm. You games, one hand is all you need! 


can play for hours without developing a case of sore thumb. The Get the Quick-Shot' now, you'll be that much ahead. After all, 
firepower button on top of the handle gives you that extra margin of winning is what every game is all about. 


THE WINNING EDGE. 


ar] u — - 
rd Li ri ME ir Park 
BY SRELTRAUDEZ 
CONTOUR HANDLE OPTIONAL LEFTHAND UNIVERSAL JACK & REMOVABLE SURE 
AND RAPID FIRE BUTTON FIRE BUTTON LONG CORD FOOT SUCTION CUPS 


Beating any video game is easy, but 
beating it single handed takes a lot more. 
It takes a good joystick that is responsive 
and comfortable. Now with Spectravideo's 
new Quick-Shof'M Joystick Controller, you can 
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SERPENTS 





für TRS-80 Video-Genie, (16 KBRam) 


Serpents ist ein in Z-80 Assembler geschriebenes Spiel, bei dem zwei Spieler 
versuchen, sich gegenseitig mit ihren ”Serpents” (Schlangen) einzuschließen. 


Zu diesem Zweck kann jeder Spieler 
seine Schlange steuern, und zwar 
benutzt der links sitzende Spieler I die 
Tasten "Q” um nach oben, ”A” um 
nach unten, ”W” um nach rechts zu 
steuern: Der rechts sitzende Spieler 2 
benutzt ”O”, ”L”, ”P”, ”@”, um nach 
oben, unten, links und rechts zu fahren. 
Wenn man es schafft, so zu manöv- 
rieren, daß der Gegenspieler gegen eine 
Wand steuert, bekommt man einen 
Punkt: Sind alle Schlangen verbraucht, 
wird der Gesamtsieger "gekürt”. 
Möchte man das Spiel kurzzeitig 
unterbrechen, drückt man (SPACE 
BAR), will man abbrechen, tippt man 
gleichzeitig (BREAK) und (CLEAR). 
Wenn die Spitzen beider Schlangen 
zusammenstoßen, geht die Partie un- 
entschieden aus, ohne daß Schlangen 
abgezogen werden. 

Spielt man gegen den Computer, so 
sind die Regeln etwas anders: Erstens 
benutzt man die Steuerung von Spieler 
l, um seine Schlange zu steuern: Der 
Computer steuert analog. 

Zweitens hat Spieler | zwar nach wie 
vor verloren, wenn er gegen eine Wand 
steuert, doch da der Computer niemals 
auf diese Weise verlieren wird, wird die 
Partie für Spieler 1 als gewonnen 
betrachtet, sobald dieser 300 Züge (von 
ca. 430 möglichen) überstanden hat. 





Anleitung: Einlesen 

"Einlesen” ist ein Basicprogramm, mit 
dem man die Daten für ”Serpents” in 
den Computerspeicher lädt. 

Wichtig: Vor dem Laden ist MEM- 
SIZE (Ready?) 28671 zu setzen! 

Nach dem Starten fragt der Computer, 
welchen Block Sie letztes Mal einge- 
tippt haben. Wenn Sie noch keinen 
eingetippt haben, geben Sie O an. 
Jetzt fragt der Computer nacheinander 
nach den 100 einzelnen Zahlen des 
entsprechenden Blocks, die Sie eintip- 





pen müßen. (Nur ENTER, NEWLINE 
entspricht der O). 

Ist man mit den 100 Zahlen fertig, prüft 
der Computer, ob man sich vertippt 
hat. Ist das der Fall, so geht der 
Computer nacheinander alle 100 Zah- 
len des Blocks so lange durch, bis Sie 
eine fehlerhafte Zahl gefunden und 
diese abgeändert haben. Sie zeigen das 
dem Computer durch Eingeben der 
Zahl und ENTER, NEWLINE an. 
So dann prüft der Computer, ob nun- 
mehr die Prüfsummen übereinstim- 
men. Wenn nein, beginnt er wieder mit 
dem Korrigieren. 

Ist das Blockelement korrekt, so drük- 
ken Sie nur ENTER, NEWLINE. Sie 
sollten beim Eingeben der Zahlen 
darauf achten, daß Sie sich nicht 
vertippen, denn wenn Sie dabei zwei 
Fehler machen, die sich gegenseitig 
aufheben (z. B. einmal statt Eins Null 
und dann statt Null Eins), dann merkt 
der Computer das nicht. 

Sonst sollten Sie eine Kassette in das 
Bandgerät einlegen, positionieren und 
den Recorder auf "RECORD" & 
"START" stellen. Dann tippt man 
ENTER, NEWLINE, um die Daten 
abzuspeichern. Als nächstes spult man 
die Kassette wieder an den Anfang des 
entsprechenden Blocks zurück und 
drückt "START", um zu überprüfen, ob 
die Zahlen richtig abgescheichert wur- 
den. Ist das der Fall, so wird ein neuer 
Aufnahmeversuch gestartet. Das wie- 
derholt sich so lange, bis die Überprü- 
fung positiv verläuft. . 

Hat man vor Beginn des Überprüfens 
einen Block zu weit vorgespult, wird der 
Computer keine Nachricht ausdruk- 
ken, sondern den nächsten Block auf 
der Kassette überprüfen, bis er den 
gesuchten Block findet. 

War die Kassette an der falschen Stelle 
innerhalb des Blocks positioniert, wird 
eine Fehlermeldung ausgegeben. Man 





Versuch 


sollte dann einen 
starten. u 
Verlief die Überprüfung korrekt, so 
wird man gefragt, ob man noch einen 
weiteren Block eingeben möchte. 
ACHTUNG: Man kann immer nur 
volle 100 Zahlen eingeben, nicht 
weniger! 

Ist das nicht der Fall, wird noch einmal 
ausgedruckt, welches der letzte Block 
war, den man eingegeben hat. Diese 
Zahl sollte man sich gut merken, weil 
man sie, wenn man weiter eintippen 
möchte, angeben muß. 

Wenn man sich dafür entscheidet, 
weitere Daten einzugeben, beginnt das 
Programm wieder mit dem Abfragen 
von 100 Zahlen. 

Hat man den 17. Block zu Ende 
eingegeben, so gelangt man in einen 
Programmteil, der nacheinander alle 
17 Blöcke von der Kassette liest und in 
den Speicher POKEd. Man muß 
natürlich vorher die Kassette an die 
richtige Stelle gespult haben. 

Ist der Computer damit fertig, so wird 
gefragt "BREAK?”. Gibt man nun 
Break ein, so kann man TBUG oderein 
ähnliches Monitorprogramm laden, 
um "Serpents” als System bzw. cmd- 
File abzuspeichern. 

Natürlich dürfen sich die Adressen 
nicht überlagern. 

Die Startadresse ist: 7000H (28672D), 
die Endadresse 7TCCFH (31951D) und 
die Einstiegsadresse 7000H (28672D). 
Ansonsten drückt man eine Taste und 
der Computer startet ”Serpents”. 
ACHTUNG: Nachdem man gestartet 
hat, sind gewisse Daten verändert, 
so daß man "Serpents” vorher abspei- 
chern sollte. 

Wenn Sie ”Serpents” fertig eingetippt 
haben, ist es ratsam, das Programm 
"Einlesen” weiterhin aufzuheben! 


neuen 
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Pogramm *Einlesen‘ : 


”"Einlesen"...Pogramm zum Lesen der Daten für "Serpents" 
“MEM-SIZE (Ready ?) = 28671 
POKE 16396, 175°"Break" abschalten. 
RESTORE 
CLEAR 1000 
DIM D(15), PR(85) 
ON ERROR GOTO 18100 
CLS 
FOR A=1 TO 85 

READ B 

PR{A)=B 

NEXT A 

PRINT $ 448,"Welchen Block haben Sie letztes" 

PRINT & 526,"Mal beendet ?"; 

GOSUB 4200 

BE=C 

IF BE=17? THEN GOTO 12400 

IF BE>16 THEN GOTO 1300 

PRINT $ 448, STRING$(128, 32); 

FOR A = BE+1 TO 17’Daten sind in 17 Blöcke unterteilt. 

KA=0 j 

FOR PR=0 TO 4 

.D{PR)I=0 

NEXT PR 

FOR B=1 TO 100°200 Zahlen, unterteilt in 2-Byte Inhalte, einlesen. 
PRINT $ 512,"Element Nr. " STRING$(4-LEN(STR&(B)) ,"O")J+RIGHT$CSTR$(CB), LEN< 
<BI)-1)" Block " STRING$(3-LEN(STR$(A)) ,"0")+RIGHT$CSTRE(A), LEN(STR$(A))-1) 
; 

GOSUB 4200 

E$=E$+CHR$(C-256%* INT (C/256) ) +CHRSCINT(C/256)) 

FOR PR=4 TO 0 STEP -1 

D{PRI=D{PRI+INTCC/INTC10APR)) 
C=C-INTCINTCC/INT(10APR))*INTC1OAPRI) 

NEXT PR 

“Zeilen 3000-3100 nicht ändern; die vielen INT’s sind wegender unbefriedige 
Rechengenauigkeit (1044<>INT(1044) !!!) des TRS-80’s/VG’s nötig ! 
NEXT B’Naechste Zahl einlesen ! 

RP=1 

FOR PR=4 TO 0 STEP -1 

IF PRC(A-1)*5+RP)<>DCPR) THEN PR=0: NEXT PR: GOTO 8000 

RP=RP+1 

NEXT PR 

GOTO 7700 

END 

c=0 

NU$="" 

A$S=INKEY$ 

B$=CHR$(188) Cursor. 

FOR Z=1 TO 5 

PRINT &$ 540, NU$; B$ 

A$=INKEY$ 

IF As<>"" AND A$<>CHRSC1I3ITHEN GOSUB 5600 ELSE IF AS=CHRE(13ITHEN GOTO 5200 


ELSE NEXT Z 


5000 


IF B$=CHR$(143) THEN B$=CHR$(188) ELSE B$=CHR$(143) 












5100 GOTO 4500 
5200 C=VAL<NU$) 

5300 IF C>65535 THEN PRINT 5 540, STRING$(20, 32);: GOTO 4200 

5400 PRINT S 540, STRING${LEN(NU$)+1, 32) 

5500 RETURN 

5600 IF ASC(A$)=8 AND LEN(NU$)>O THEN NU$=LEFT$(CNU$, LEN{NU$)-1): PRINT 5 S40+LE 
N<NU$)+1," "5: RETURN 

5700 IF ASC(A$)<48 OR ASC(A$)>57 THEN RETURN 

5800 NU$=NU$+A$ 

5900 RETURN 

6000 CI.S 

6100 KA=1 

6200 PRINT $ 530,"Die Prüfsummen stimmen nicht überein !" 

6300 FOR B=1 TO 500 

6400 NEXT B’ 

6500 CLS 

6500 B=0 

6700 FOR X=1 TO 200 STEP 2 

6800 B=B+1 

6700 PRINT 5 4680,"Element Nr. " STRING$(4-LEN(STR$(CB)),"O")+RIGHT${STR$CB), LENC 
STR$CB))-1)" Block Nr. " STRING$(3-LEN(STR$(A)),"O")+RIGHT$CSTR$(CA), LENCSTRECA) 
I-1)" jetzt gleich: * STRING$(S-LEN(STR$(ASC(MIDSCE$, X, 1))+ASCCMIDSCES, X+1, 1 
I)*256)),"0")5 

7000 PRINT RIGHT$(STR$(ASC(MID$(CE$, X, 1))+ASC(MIDS{ES, X+1, 1))%*256), LENCSTR$C 
ASC(MID$(CE$, X, 1))+ASC(MIDS$(E$, X+1l, 1))*256))-1);5 

7100 PRINT $ 520,"Neuer Wert ?"; 

7200 GOSUB 4200 

7300 IF LEN(NU$)>0 THEN E=ASC(MID$(E$, X, 1))+ASC(MID$(ES, X+1, 19)%*254: E$=LEFT 
$(E$, X-1)+CHR$CC-255*INT(C/256) ) +CHR$CINTCC/256) )+RIGHT$CE$, LEN(CE$)-X-1): X=20 
0: NEXT X 

7400 IF LEN(NU$)>0 THEN FOR PR=4 TO 0 STEP -1: D<(PRI=D{PRI+C INTCC/INTCI1OAPRII-I 
NTCE/INT<10APR))): E=E-INTCE/INTC10APRII*INTCLIOAÄPRI : C=C-INTEC/INTSLOAPRI>*INTCI 
0APR): NEXT PR: GOTO 3500 

7500 NEXT X 

76800 GOTO 3500 

7700 KA=1 

7800 E$=E$+STRING$(S, 0) 

7900 CLS 

8000 PRINT $ 520,"Bereiten Sie die Kassette vor, um"; 

8100 PRINT & &00,"Block Nr. " STRING$(3-LEN(STR&(A)) ,,"O")+RIGHT$CSTR$(A), LENCST 
R$(A))-1)" abzuspeichern !"; 

8200 PRINT 8 780,"Bitte <ENTER> (<NEWLINE>) drücken !" 

8300 A$=INKEY$ 

8400 A$=INKEY$ 

8500 IF A$<>CHR$(13) THEN GOTO 8400 

8500 CLS 

8700 PRINT & 530,"Der Block wird jetzt abgespeichert." 

8800 PRINT#-1, A 

8700 FOR B=1 TO 200 STEP 16 

9000 FOR C=0 TO 15 STEP 2 

9100 D<C)= ASC(MID$(E$, B+C, 13)+ASCCMIDS(CE$, B+ C+ti, 1)9)*256 

9200 NEXT C 

9300 PRINT#-1, D(C0)"," Di23"," Di4)"," Di6)"," DCB)"," Di10)"," DC12I"," D(14) 
9400 NEXT B 

9500 FOR B=1 TO 20 

9600 OUT 255, 4 

7700 NEXT B 

















































9800 CLS 

9700 PRINT $S 520,"Band zurückspulen und zum überprüfen vorbereiten !" 

10000 PRINT & 780,"Bitte <ENTER> (<NEWLINE>> drücken !" 

10100 A$=INKEY$ 

10200 A$=INKEY$ 

10300 IF A$<>CHR$(13) THEN 10200 

10400 CLS 

10500 PRINT $ 530,"Jetzt wird Block Nr. " STRING${3-LEN(STR$(CA)),"O")+RIGHT$SCSTR 
SA), LENCSTR$CA))-1I" überprüft."; 

10800 B$="" 

10700 INPUT#-1, X 

10800 FOR B=1 TO 13 

10900 INPUT#-1, D(0), D<1), D(2) ,„ D(3), D(4), D(5), Di6), D7) 

11000 FOR C=0 TO ? 

11100 B$=B$+CHR$CDCC)I-2565*INTCDCCI/256) I) +CHRECINTCD<CI/256)) 

11200 NEXT C 

11300 NEXT B 

11400 IF A<>X THEN GOTO 10400 

11500 CLS 

11600 IF E$<>B$ THEN PRINT $ 544,"überprüfung negativ !!!";: FOR B=1 TO 500: NEX 
T B: GOTO 7900 

11700 PRINT $ 512,"überprüfung :rlief korrekt !" 

11800 IF A=17 THEN GOTO 12400 

11900 PRINT & 645,"Wollen Sie den nächsten Block eintippen ? (J/ND" 

12000 A$=INKEY$ 

12100 A$=INKEY$ 

12200 IF A$<>"J" AND A$<> "N" THEN 12100 

12300 IF A$="J" THEN CLS: NEXT A ELSE PRINT $S 520,"Sie haben jetzt Block Nr. " $ 
TRING$(3-LEN(STR$(A)) ,"O")+RIGHT$SCSTR$CA), LENCSTR$CA)I-1)" eingetippt.": PRINT 
& 660,"Merken Sie sich die Block-Nr. und": PRINT & 790,"geben Sie sie nächstes M 
alan !": END 

12400 CLS 

12500 E=28672 

12600 KA=0 

12700 FOR A=1 TO 17? 

12800 B$="" 

12900 CLS . 

13000 PRINT $ 385,"Spulen Sie die Kassette bis zum Anfang des Blocks Nr. " STRIN 
G$(3-LEN(STR$(A)),"O")+RIGHT$CSTR$CA), LENCSTR$SCAY)-II" und" 

13100 PRINT $ 780,"Drücken Sie bitte <ENTER> (<NEWLINE>) !" 

13200 A$=INKEY$ 

13300 A$=INKEY$ 

13400 IF A$<>CHR$SC13)THEN GOTO 13300 

13500 CLS 

13600 PRINT & 580,"Jetzt wird Block Nr. * STRING$(3-LEN(STR$(A)),,"O")+RIGHT$CSTR 
$(A), LENCSTR$(A))-1)" geladen ." 

13700 INPUT#-1, B 

13800 IF B<>A THEN CLS: PRINT S 460,"Falscher Block, das war Block Nr. " STRING$ 
€ 3-LEN(STR$(CB)) ,"O")+RIGHT$SCSTR$SCB), LENCSTR$CB))-1)" !": FOR B=1 TO 500: NEXT B 
: GOTO 12900 

13900 FOR B=1 TO 13 

14000 INPUT#-1, D(0), D<1), Di2), D<3), D<4), D(5), D(6), D(7) 

14100 FOR C=0 TO ? 

14200 B$=B$+CHR$(D(CI-256*INTCDCC)I/258) I) +CHRSCINTCDCCI/256)) 

14300 NEXT C, B 

14400 CLS 

14500 PRINT & 520,"Der gelesene Block wird jetzt verarbeitet." 





14800 FOR B=1 TO 200 

14700 POKE E, ASC(MID$(B$, B, 1)) 

14800 E=E+1 

14900 NEXT B, A 

15000 CLS 

15100 PRINT & 390,"Fertig !" 

15200 PRINT 5 720,"Break ?" 

15300 POKE 16396, 201 

15400 A$=INKEY$ 

15500 IF A$="" THEN 15400 

15600 POKE 16396, 175 

15700 POKE 165265, 28672-256*INT(28572/256) 

15800 POKE 16527, INT(28672/256) 

15900 PRINT USR<(0) 

18000 END 

16100 CLS 

16200 PRINT & 512,"Kassette war falsch eingelegt !" 

16300 PRINT S$ 710,"Nochmal versuchen !" 

168400 FOR X=1 TO 500 

168500 NEXT X 

16600 IF KA=1 THEN RESUME 9800 

16700 RESUME 12900 

16800 DATA 149, 509, 483, 460, 384, 224, 637, 359, 538, 465, 173, 614, 217, 270, 
384, 288, 240, 238, 164, 242, 312, 260, 259, 166, 261, 288, 240, 238, 164, 242 
16900 DATA 55, 586, 195, 178, 317, 221, 266, 405, 410, 347, 266, 312, 438, 507, 
367, 210, 350, 397, 451, 429, 199, 414, 440, 481, 447, 196, 336, 414, 519, 418, 
225, 313, 428, 465, 469 

17000 DATA 240, 286, 328, 431, 372, 207, 371, 434, 440, 413, 234, 346, 441, 464, 


389, 111, 137, 170, 166, 233:’Dies sind die Pruefsummen der 17 Serpents-Bloecke 
» <17 Bloecke a 5 Pruefsummen = 85 Pruefzahlen.) 


Block Nummer: 1 Pruefsummen =173, 614, 217, 270, 384 

61379, 21368, 17696, 21024, 20512, 17696, 20000, 21536, 21280, 11808, 

11808, 11808, 20291, 22864, 18770, 18503, 08276, 17192, 08233, 14641, 

13112, 25120, 08313, 31818, 26482, 21536, 26469, 25701, 29285, 26963, Block Nummer: 4 

09293, 24936, 25954, 08302, 24932, 08307, 28755, 25961, 08300, 25959, 00000, 00000, 00000, 00000, 65535, 65535, 65535, 65535, 00000, 00000, 

28535, 28270, 28261, 08236, 08480, 20563, 17737, 17740, 17486, 08261, 00000, 00000, 65535, 65535, 65535, 65535, 00000, 00000, 00000, 00256, 

22305, 25961, 264998, 27749, 21280, 26723, 24940, 26478, 28261, 10272, 65280, 65535, 65535, 65535, 00000, 00000, 00000, 00000, #5535, 65535, 

11313, 11315, 11317, 11319, 10553, 16160, 29252, 25469, 25963, 08302, 45535, 65535, 00000, 00000, 00000, 00000, 65535, 45535, 65535, 65535, 

26963, 08293, 26981, 25966, 21536, 29537, 25972, 08480, 25427, 30568, 00000, 00000, 00000, 00000, 65535, 65535, 65535, 65535, 00000, 00000, 

25961, 26994, 27495, 26981, 29556, 29287, 25697, 10272, 11825, 13102, 00000, 00000, 45535, 65535, 45535, 65535, 00000, 00000, 00000, 00000, 

08236, 08241, 28001, 29472, 26723, 25975, 29554, 25972, 08302, 08233 65535, 65535, 65535, 65535, 00000, 00000, 00000, 00000, 65535, 65535, 
65535, 65535, 00000, 00000, 00000, 00000, 65535, 65535, 65535, 45535, 
00000, 00000, 00000, 00256, 65280, 45535, 65535, 65535, 00000, 00000, 

Pruefsummen =149, 509, 483, 460, 384 00000, 00000, 65535, 645535, 65535, 65535, 00000, 00000, 00000, 00000 


Block Nummer: 2 Pruefsummen =288, 240, 238, 164, 242 

17215, 19791, 21840, 17748, 08274, 26949, 08302, 25711, 29285, 31264, 

25975, 08297, 28755, 25961, 25964, 08306, 21311, 25961, 26656, 25185, 

28261, 30240, 29285, 28524, 25970, 11374, 19232, 26981, 25966, 08306, Block Nummer: 5 

24936, 08308, 25959, 28535, 28270, 28261, 08480, 21439, 26992, 27749, 65535, 65535, 65535, 65535, 00000, 00000, 00000, 00000, 45535, 65535 

29285, 125764, 49087, 49087, 49087, 49087, 49087, 49087, 49087, 40383, 65535, 65535, 00000, 00000, 00000, 00000, 45535, 65535, 85535, 45535 

21393, 18499, 16716, 18254, 20037, 13626, 49049, 49087, 49087, 49087, 00000, 00000, 00000, 00000, 45535, 45535, 65535, 65535, 00000, 00000, 

49087, 49087, 49087, 49087, 28755, 25961, 25964, 08306, 48946, 49097, 00000, 00000, 65535, 65535, 65535, 65535, 00000, 00000, 00000, 00000, 

49087, 12445, 49070, 49087, 49087, 34751, 08224, 08224, 08224, 08224, 65535, 65535, 65535, 65535, 00000, 00000, 00000, 00256, 65280, 45535 

08224, 41504, 42662, 42662, 42662, 42662, 42662, 42662, 08358, 08224, 65535, 65535, 00000, 00000, 00000, 00000, 45535, 45535, 85535, 65535, 

08224, 08224, 08224, 08224, 49035, 49087, 49097, 40383, 44592, 49087 00000, 00000, 00000, 00000, 65535, 65535, 65535, 65535, 00000, 00000, 
00000, 00000, 65535, 65535, 65535, 65535, 00000, 00000, 00000, 00000 
65535, 65535, 65535, 65535, 00000, 00000, 00000, 00000, 65535, 65535 

Pruefsummen =224, 637, 359, 538, 465 65535, 5535, 00000, 00000, 00000, 00000, 65535, 65535, 65535, 65535 


Block Nummer: 3 Pruefsummen =312, 260, 259, 166, 261 

49087, 49087, 49087, 49087, 49087, 40895, 08321, 08224, 08224, 

08224, 08224, 08224, 08224, 08224, 08224, 08224, 08224, 08224, 

08224, 08224, 08224, 08224, 08224, 33312, 49071, 49087, 49087, Block Nummer: & 

49087, 49087, 49087, 08383, 08224, 08224, 08224, 08224, 08224, 00000, 00000, 00000, 65535, 65535, 65535, 65535, 00000, 00000, 
08224, 08224, 08224, 08224, 08224, 08224, 08224, 08224, 08224, 00000, 00256, 45280, 65535, 65535, 00000, 00000, 00000, 00000, 
08224, 08224, 09224, 08224, 08224, 08224, 08224, 08224, 08224, 65535, 65535, 65535, 00000, 00000, 00000, 00000, 65535, 65535, 
08224, 08224, 08224, 08224, 48928, 65535, 65535, 90000, 00000, 65535, 65535, 00000, 00000, 00000, 65535, 65535, 65535, 65535, 
00000, 00000, 5535, 65535, 65535, 00000, 00000, 00000, 00000, 00000, 00000, 00000, 65535, 65535, 65535, 65535, 00000, 00000, 
65535, 45535, 65535, 65535, 00000, 00000, 00000, 65535, 65535, 00000, 00000, 65535, 65535, 65535, 00000, 00000, 00000, 00000, 
65535, 65535, 00000, 00000, 00000, 65535, 65535, 65535, 65535 65535, 65535, 65535, 00000, 00000, 00000, 00000, 65535, 65535, 





65535, 65535, 
00000, 00000, 
00000, 00000, 


Pruefsummen =288, 


Block Nummer: 
65535, 65535, 
65535, 65535, 
08224, 08224, 
08224, 08224, 
08224, 08224, 
08224, 08224, 
08224, 08224, 
08224, 08224, 
08224, 00020, 
00000, 00000, 


00000, 
00000, 
65535, 


7 

65535, 
00000, 
08224, 
08224, 
08224, 
08224, 
08224, 
08224, 
00002, 
00000, 


00000, 
00000, 
65535, 


240, 238, 


65535, 
00000, 
08224, 
08224, 
08224, 
08224, 
08224, 
08224, 
00005, 
15360, 


Pruefsummen =055, 586, 195, 


Block Nummer: 
01057, 08704, 
32373, 32982, 
29234, 32373, 
00044, 15897, 
10953, 30050, 
30066, 16073, 
16073, 12804, 
12803, 30046, 
21229, 54910, 
10953, 30060, 


Pruefsummen =221, 


Block Nummer : 
30512, 27682, 
52602, 31816, 
54910, 62081, 
28873, 02305, 
00470, 14130, 
00009, 45293, 
04351, 03582, 
10953, 30062, 
51830, 30470, 
30379, 64033, 


Pruefsummen =266, 


Block Nummer: 
54901, 65025, 
30399, 01731, 
30526, 57796, 
15910, 25634, 
2O1RA,, II9aR, 
18705, 00318, 
00766, 38338, 
14969, 14352, 
49525, 43459, 
00010, 22050, 


Pruefsummen =210, 


Biock Nummer : 
08567, 00001, 
30064, 33825, 
25889, 04464, 
28194, 52597, 
11202, 08568, 
49971, 30845, 
30802, 14113, 
13937, 49977, 
08704, 30062, 
01024, 45293, 


8 
30056, 
52720, 
32982, 
12800, 
15915, 
12801, 
30044, 
16073, 
62080, 
48950, 


, 
51573, 
23098, 
31414, 
60672, 
14961, 
49959, 
61216, 
28194, 
26682, 
52480, 


10 
51715, 
10871, 
10871, 
51573, 
12801, 
00045, 
08567, 
01278, 
14969, 
49525, 


11 
28194, 
08816, 
15808, 
30413, 
28983, 
08446, 
13937, 
30845, 
52685, 
65313, 


10953, 
30199, 
52720, 
30066, 
12800, 
30044, 
16073, 
12804, 
31414, 
32291, 


256, 405, 


27690, 
50805, 
18637, 
50098, 
29015, 
03706, 
11209, 
08565, 
50805, 
30399, 


312, 438, 


30497, 
30082, 
30052, 
00033, 
30054, 
45293, 
01024, 
44482, 
14352, 
43459, 


350, 397, 


52597, 
30052, 
07937, 
05126, 
12598, 
17858, 
49975, 
28202, 
49526, 
52735, 


Pruefsummen =199, 414, 440, 


Block Nummer: 
52597, 30413, 
08959, 30082, 


12 
53793, 
15045, 


04484, 
14352, 


00000, 00256, 
65535, 65535, 
«5535, 65535, 


164, 242 


00000, 00000, 
00000, 00000, 
08224, 08224, 
08224, 08224, 
08224, 08224, 
08224, 08224, 
08224, 08224, 
08224, 08224, 
02500, 00001, 
00000, 00000, 


178, 317 


30050, 16401, 
00318, 29234, 
30205, 00318, 
54910, 61568, 
30066, 54910, 
16073, 12802, 
12801, 30046, 
30046, 10953, 
18637, 14972, 
33238, 46834, 


410, 347 


13941, 04543, 
30512, 27682, 
14972, 30042, 
31721, 23098, 
00454, 22322, 
17153, 00318, 
46460, 49090, 
30056, 00830, 
65025, 51987, 
59563, 14966, 


507, 369 


26657, 30581, 
31787, 49845, 
27682, 50037, 
04412, 15361, 
52685, 08566, 
05126, 08645, 
22562, 08565, 
08567, 02010, 
02302, 50626, 
10873, 30062, 


451, 429 


30413, 04289, 
08449, 15360, 
60672, 18048, 
08645, 65535, 
32195, 65144, 
09568, 28983, 
30845, 08250, 
11125, 46460, 
39440, 03523, 
30399, 00289, 


a81, 447 


15636, 05889, 


00766, 49858, 


65280, 
65535, 
00000, 


00000, 
as15l, 
08224, 
08224, 
08224, 
08224, 
08224, 
08224, 
00002, 
00000, 


42752, 
51573, 
29234, 
00973, 
$1568, 
30044, 
18073, 
30060, 
30042, 
52602, 


00054, 
51573, 
12486, 
65141, 
08561, 
65491, 
sı318, 
14967, 
30463, 
30054, 


52575, 
30416, 
31088, 
00001, 
65535, 
65535, 
00001, 
22562, 
08557, 
08747, 


57753, 
00273, 
089448, 
28194, 
49672, 
13622, 
65080, 
28194, 
08569, 
08704, 


60672, 
15992, 


65535, 
65535, 
00000, 


00000, 
08224, 
08224, 
08224, 
08224, 
08224, 
08224, 
08224, 
00004, 
00000, 


32281, 
27690, 
08823, 
51201, 
28873, 
65040, 
65342, 
30054, 
26657, 
51895, 


30379, 
15049, 
00318, 
60676, 
49101, 
28194, 
22050, 
08565, 
05000, 
30062, 


03523, 
00316, 
30054, 
14965, 
30776, 
32195, 
49866, 
49781, 
15360, 
30062, 


65535, 
00000, 
00000, 


65535, 
08224, 
08224, 
08224, 
08224, 
08224, 
08224, 
08224, 
15943, 
08000, 


00082, 
09077, 
25130, 
12801, 
15990, 
12803, 
30046, 
16401, 
08823, 
23098, 


33238, 
13941, 
30060, 
15041, 
04625, 
15939, 
26657, 
00786, 
30581, 
30497, 


30753, 
30064, 
28722, 
08624, 
08566, 
14965, 
49525, 
00005, 
22562, 
46460, 


00020, 
30036, 


65535, 
00000, 
00000 


65535, 
08224, 
08224, 
08224, 
08224, 
08224, 
08224, 
08224, 
15993, 
00000 


30538, 04154, 65080, 49668, 
30082, 31787, 08885, 30062, 
04289, 57791, 03523, 08569, 
04485, 00084, 60185, 53793, 
00273, 13834, 00288, 01024, 
08824, 00001, 28194, 15989, 
00318, 00034, 45293, 00574, 
65313, 52735, 30399, 12350, 


Pruefsummen =196, 336, 414, 


Block Nummer: 13 

28804, 27582, 08565, 00003, 
15379, 08145, 60672, 08624, 
30924, 08565, 30056, 24439, 
28194, 14945, 14591, 49847, 
01024, 45293, 22570, 09821, 
18209, 08766, 30048, 30753, 
60789, 22107, 42869, 21229, 
52479, 30072, 26674, 01653, 
20427, 60356, 14965, 14337, 
52085, 50303, 30193, 00570, 


Pruefsummen =225, 313, 428, 


Block Nummer: 14 

30211, 01082, 52024, 50247, 
52024, 50303, 31740, 16442, 
22986, 08826, 30062, 64963, 
27682, 15989, 08449, 30042, 
30253, 01022, 18124, 65142, 
08821, 30060, 00574, 23073, 
11724, 65142, 52227, 30278, 
31190, 15073, 30036, 00510, 
19713, 60672, 08624, 29060, 
15890, 05121, 60672, 08624, 


Pruefsummen =240, 286, 328, 


Block Nummer: 15 

30413, 04641, 04469, 15910, 
49787, 31721, 23073, 32373, 
00009, 45293, 35898, 50801, 
15049, 28983, 12542, 30666, 
31145, 18465, 04465, 29970, 
14961, 28983, 00470, 14130, 
45293, 01286, 65913, 52735, 
00319, 00011, 45293, 01286, 
15361, 08246, 65281, 60675, 
14881, 04464, 15884, 07681, 


Pruefsummen =207, 371, 434, 


Block Nummer: 16 

08571, 28947, 02305, 60672, 
01286, 65313, 52735, 30399, 
08566, 29000, 02305, 60672, 
01284, 52931, 50043, 30989, 
05000, 49101, 08566, 00003, 
33825, 04464, 15891, 06145, 
04469, 15891, 06145, 60672, 
50038, 31229, 54910, 62000, 
08340, 15886, 38188, 02336, 
30086, 23610, 65141, 52225, 


Pruefsummen =234, 346, 441, 


Block Nummer: 17 

00786, 51660, 14965, 30066, 
29242, 46965, 25026, 14970, 
31329, 39629, 14945, 30066, 
31329, 45261, 14965, 30066, 
00000, 00000, 00000, 00000, 
00000, 00000, 00000, 00000, 
00000, 00000, 00000, 00000, 
00000, 00000, 00000, 00000, 
00000, 00000, 00000, 00000, 
00000, 00000, 00000, 00000, 


Pruefsummen =111, 137, 170, 


30931, 00574, 
45506, 08568, 
29905, 53777, 
00369, 00704, 
45293, 00801, 
12801, 30054, 
26162, 08565, 
22322, 12913, 


519, 418 


26658, 15989, 
00500, 28194, 
43981, 10870, 
30701, 33219, 
30068, 00574, 
08766, 30050, 
29730, 08821, 
50532, 52575, 
28617, 58820, 
52024, 50303, 


465, 469 ° 


30217, 00314, 
65080, 51718, 
14969, 30036, 
14967, 30044, 
52228, 30306, 
30581, 24122, 
01278, 25292, 
34508, 52598, 
29201, 00316, 
00001, 28194, 


431, 372 


02305, 60672, 
00786, 17098, 
12801, 29048, 
01659, 08452, 
02305, 60672, 
51569, 08641, 
30399, 63504, 
45313, 52735, 
08624;..00004, 
60672, 15024, 


440, 413 


08624, 28760, 
63504, 03523, 
08624, 28760, 
04897, 04414, 
28194, 15989, 
60672, 15024, 
10928, 30068, 
31582, 10953, 
00574, 23090, 
30079, 29242, 


464, 389 


49847, 31329, 
30044, 01278, 
49847, 31329, 
49847, 31329, 
00000, 00000, 
00000, 00000, 
00000, 00000, 
00000, 00000, 
00000, 00000, 
00000, 00000, 


166, 233 


21554, 
00001, 
00372, 
45293, 
04484, 
52685, 
00001, 
29068, 


12800, 
14965, 
30062, 
08569, 
23602, 
00033, 
30062, 
30379, 
14965, 
30199, 


52024, 
30989, 
00510, 
00510, 
27690, 
s5141, 
10870, 
31496, 
00014, 
08565, 


00513, 
14969, 
00513, 
29970, 
08448, 
14591, 
28194, 
30070, 
58741, 
46965, 


23610, 
39628, 
32717, 
01086, 
00000, 
00000, 
00000, 
00000, 
00000, 
00000, 


49525, 
28194, 
00064, 
03523, 
15750, 
08566, 
28194, 
14654, 


30064, 
30056, 
31787, 
28946, 
15989, 
08704, 
26682, 
04289, 
14340, 
00570, 


50247, 
28202, 
20426, 
04044, 
08821, 
52225, 
30080, 
04841, 
45293, 
30054, 


60672, 
30036, 
60672, 
06145, 
30054, 
51895, 
08565, 
08739, 
46787, 
25026, 


65141, 
14965, 
14965, 
24114, 
00000, 
00000, 
00000, 
00000, 
00000, 
00000, 


19139, 10871, 
52597, 30413, 
45293, 53793, 
08569, 15360, 
05377, 60672, 
28696, 39953, 
52597, 30413, 
14130, 08561 


27690, 04469, 
00454, 65534, 
51893, 30507, 
00017, 00316, 
12804, 30046, 
30070, 29738, 
50805, 65025, 
15096, 14337, 
20427, 57284, 
52024, 50279 


16442, 
46460, 
30048, 
52226, 
25130, 
00766, 
50037, 
15360, 
04484, 
52599 


11715, 
00373, 
28983, 
50168, 
22322, 
00021, 
55825, 
04412, 
30054, 
55802 


52656, 30413, 
00510, 31690, 
52656, 30413, 
60672, 08624, 
52599, 30413, 
31783, 04641, 
65535, 49101, 
30070, 00318, 
15994, 12800, 
14970, 30044 


52227, 30128, 
30066, 49847, 
30066, 49847, 
50037, 31329, 
00000, 00000, 
00000, 00000, 
00000, 00000, 
00000, 00000, 
00000, 00000, 
00000, 00000 
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COMMODORE VC-20 





Space Zap 


für den VC-20 


Die Lage ist hoffnungslos! Sie sind der letzte Überlebende der Raumstation Delta 4. 
Die ausserirdischen Lebewesen greifen von allen Seiten an. Sie haben alle Hände voll 
zu tun um Ihr Leben und Ihre Stellung zu verteidigen. 


Spielbeschreibung 
Gespielt wird mit denselben Tasten, die 


auch bei Commodore-Modulen be- 
nutzt werden: 

L = links 

P = oben 

; = rechts 

. = unten 

F = Feuer 


Alle 5000 Punkte bekommen Sie eine 
neue Basis. Ungefähr 10000 Punkte 
lang müssen Sie sich mit aller Kraft 
wehren, dann endlich flaut die An- 





griffswelle für kurze Zeit ab. 

Danach nimmt die Geschwindigkeit 
der Geschosse jedoch wieder stark zu 
und das Spiel wird noch schwieriger. 

Vorsicht ist geboten, denn die Angreifer 
tauchen meist nur kurz auf und 
verschwinden gleich wieder. 

Der Abschuß von einer Bombe wird 
mit 50 Punkten bewertet, der Abschuß 
eines Angreifers mit 200 Punkten. 


Hier noch ein Tip: 
Wenn man den Joystick benutzen will, 





ändert man folgende Zeilen: 

5 POKE 37139,0 
230 JJ=PEEK (37137): POKE 37154, 
127:JS=PEEK (37152): POKE 37154, 
255:IFHC> 9999THEN HC=SC/100 
270 IF(IIAND4)=0THEN...weiter wie 
oben 
280 IF(JYJANDS)=0 THEN... 
290 IF(JJAND16)=0 THEN... 
300 IF(JSAND128)=0 THEN... 
310 IF(I9AND32)=0 THEN... 
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REM =556 FÜRCHHEIM 
PRINT" IM" :POKESSETS, 5: BS=PEEK(E48)3256 
FIN" SP Turm 

3 FEINT'IS suBBl Bl Bl nl a Re" 

Ss FEIN Oo wo MM 
FEINT"IERBBI Pl vB Hl Hl nl" 
ERINTMEA er 2 ubBl vl ang er 


DE | u Bl 
a" 
L IR 2 | 
BI EBBI hi Bl" 
FEINT'IBRBEBIQ HI hin m" 
IF HS=4 THEH 188 
4 FRINT"BESTER SPIELER: Mm" 
FREINTN$;" MITM":FRINTHS; "FÜHNKTEN 
BETA: IFA£=""THENIER 
REM FIELBEGINN 


C=5C’180:REM RUHEFAUSEN ALLE 196026 PUNKTE 


4ESSSTHEH! 
="P"THENG 


IFSCPU) k 
a ONPU+1GOSUBLZ 18, 1258. 1298. 1328. 1370 
IFFL=1THENS 


FORI= 1T04: IFFEEK 13)=16GORPEEK (SKI) I=FFORPEEKCSCIDDSTSORPEEKCSCIII=12THE 


E IFSCISTHEHPÜKESEIN.S1 
NEXT 
GOTOE2E 
FORI=1STOSSTER-1 
Ss3a FRINT" LE DEDEBDDEL UHR :: NONmm © OBEN ":POKESESTS.1S 
34a GOSUEFZE: POKES B 
558 FÜKES 
Elzis] 
Sreh 
sea 3 
ER EA=EA- 1 
aa FORI=1T04:5CI2=0 : NE#T:GOSUE14EE 
FU=8:FORY=1T01999: NEST 
IFER>OGOTOZ1E 
FRINT" SIRIMIMIRIEIe ee GANEIBERNI ER" 
a FORI=1T02006: NEST 
IFSC>HSTHEHFRINT"TIRERRRHIGH SCORE" :GOTOSFE 
GOTOrag 
a FRINT"MFLERSE ENTER ' POUR NAME" 
IHFUTN&: FRINT"M" 
HS=SC 
PRINT" MM TASTE DRUECKEN" 
GETA#: IFA$=""THEHF18 
r2a GOTO1a 

















Pad 
F4E FRIMT" SBERIKISIRINTSTRTRTNN Be De Bi 
Sa RI=1:RETURH 
FEE PRINT" SBERISInISIRIRTeIRTe Br Be Be 
Fra RI=2:RETURN 
FS0 PRINT" SSERINIRINIKISInteinde Be 
r36 RI=2:RETURN 

Sa FRINT" SEHR NUNEHIE FREBI-FUERHEN HREbi-PERREIN " 


Bag ":RETUFRN 
JERBI rEBBEI " 




































































318 RI=4:RETURN 
S20 IFS{RISTHENSC=SCHSS:HO=HC+H38 :GOSUR14ER: IF 
4sa 


834 FOKESSSTS. 15:FORM=2SOTOZ4ASTEF+1 :PÜKESEST 
:NEST:FÜKESSSTE. 8 
348 PRINT" SEEN" ; 













35a & 

68 THEHFFINT " SINIRIRINIRIEI" ; 
sro THENFF:INT "NUM 

Ss h 

S36 2 

as THEN1G085 

>18 x THEN187&5 

920 :I=4THEN1146 


339 FORI=1TOS 

2348 PRINT" AD]": NEXT 

359 PRINT" MMIRISIRIRIKIR" ; 

358 FORI=1TOS 

374 PRINT" ID"; NEXT 

386 IFPU=RITHEN141E 

329 RETURN 

1098 FORI=1T07 

1a1& PRINT" BIN"; :NEST 

1528 PRINT"TIIITITI": 

1038 FORI=1TO7 

1048 PRINT" IN"; NEST 

1058 IFPU=RITHEN1418 

1058 RETURN 

1878 FORI=1TOS 

16838 PRINT" IM"; :NEST 

1894 PRINT"IBRRRRRRI" ; 

11a FORI=1TOS 

111& PRINT" IM"; :HEST 

1128 IFPL=RITHEHN1418 

1128 RETURN 

1148 FORI=1T07 

1158 PRINT"_"; :NEST 

11658 PRINT'IONRRRRI ; 

1170 FORI=1T07 

1188 PRINT" ";:NEKT 

1138 IFPU=RITHEN1418 

1208 RETURN 

1218 FPREINT'SABBBBRRRRBI ": PRINT" RIMRISIRISIRISISI) HER 
1228 PRINT"IMI ED) " 

1238 PRINT" MeIMIeIeIi ©; 

1248 RETURN 
1258 PRINT" RRRRARRHAT®" :FRIHT" NINIRIRLRIRITSIEIK] HER " 
1258 PRINT ID " 

1278 PRINT" NM ©; 

1288 RETUFH 
2a0 PRINT" 
1358 PRINT"IMI AUDI " 
1318 PRINT" Melanie ; 

1328 RETURN 

13320 PEINT'RRRERRRRBI ":FRIHT" AINININISISIRTRIRTST RE" 
1348 PRINT"III ID " 

1358 PRINT" NISMEITMMTDD m; 

1329 RETURN 
1376 PRINT" BR 
1386 PRINT"IITULIF® 
. PRINT EEE m; 














BRBBI ":FFRINT" MISIMIRIRIRIRIRISTE BE " 








1" :FRINT"BIMSISISINISINTSI DIeRm © 












! u 
14268 GÜOSUE1480: 
14368 REMEASE 
144G IFSCH=TTTHENEA=SER+1: TT=TT+5608:G0SUE14S50 
SCPLI> Fu=4:RETLIEN 
FRINT"SSC"SC:FRINT"TS 

















>>" ERSES"ER:RETUFRH 


















4 REM MARTIN SCHERRER 

5 REM 

7 GOSUBIBBE 

8 POKE36879, 125: POKE36869, 285: G0SUBISBB 
9 GOSUBBB2B:CLR 

2 PRINT 0" : POKE783, 0: D=71:%=18: v=5: POKE36869, 285: CC=368 


11 FORA=1TO13:PRINT'TWBBBDEDADEBBBBBBRBBBI" :NEXT:DD=CC+3: POKEDD, 15: EE=36974: FF Gegner durch Schüsse zuerst außer 
«208 i . . ö i Gefecht zu setzen. 

12 A=182:POKE4558, A: POKE4579, A: FORB=4588T04601 : POKEB, A: NEXT 

13 FORA=378881038395:: POKER, Bi NEXT 
14 „guesssze 








a IDmTL." 
IE —TEm 2" 
IUHRT- man. " 


38 PRINT"MSCORE 8 MEN 3" 

188 B=5:A=PEEK(197) : IFR<>L3THENI122 
118 Z=Z-1:B=4: IFZ<C3THENZ=3:G0T0198 
128 IFA<>37THEN148 

138 ZuZ+1:B=3: IFZIZOTHENZ=29:G0T0198 


Texas Kid 
für den VC-20 


Wilder Westen Arizona - 12 Uhr Mittags - Revolverhelden haben sich aus dem ganzen 
Land zu einem Duell auf Leben und Tod versammelt. Auch Texas Kidfehlt natürlich 
nicht, um bei dieser Gelegenheit wiedereinmal seine Schnelligkeit mit dem Revolver 
unter Beweis zu stellen. Nerven wie Drahtseile muß schon der Zuschauer solcher 
Szenen haben - wie erst die Akteure. Auch Sie lieber Leser, können Ihre Nerven mit 
dem nun folgenden abgedruckten Spiel für den VC-20 ”Texas Kid” testen. 


















Spielbeschreibung: 

Zwei Revolverhelden beherrschen den 
Bildschirm. Jeder versucht in einem 
erbitterten Kampf seinen feindlichen 


Ein Cowboy wird von Ihnen gesteuert, 
der andere von Ihrem Computer, der 
sehr gut Zielen und genauso gut und 
geschickt Ihren tödlichen Schüssen 
ausweichen kann. 

Es stehen insgesamt drei Schützen zur 
Verfügung, mit denen Sie soviel Gegner 
wie nur möglich treffen müssen. Da der 
Computer eine unbegrenzte Anzahl 
von schießwütigen Cowboys zur Verfü- 
gung hat, dürfte dies nicht einfach sein. 
Die Höhe der Punkte richtet sich nach 
den von Ihnen getroffenen Cowboys. 














IFA<>Z1THENISB 
Sm5-1: Bei: IFSCIZTHENS=12:G0T0198 
IFA<DZZTHENZEB 
S=S+1:Ba2: IFSCZITHENZBB 
S=ZzB 
B=5 
POKECC , 8:C=4895+Z422+5: IFG=1THEN1888 
GETB&: IFB&=" 1" THEND=72 : POKECC, 149: F=-23: Omi :H=6:G0T01298 
IFB£&="2"THEND®71:F=-1:G=1:POKECC, 148: H=C:GOTO1808 
IFB£="3"THEND=73:F=21:G®=1 :POKECC, 148: H=C : GOT01888 
POKE198,8 
FOKE2Z81 2: POKE782,3:SYSCU:PRINTAS(CB> :POKEC,D 
TY=INTCRND<1>W2.9-1> 
VeTY+2: IFTY=BTHENVeS: GOTO3QS 
KuX+TY:GOTO31Q 
TY=INTCRND<12M2.9-12 
veaTy+3: IFTY=QTHENV=5:GOT0458 
Yay+TY7: GOTO33B 
IFX<C3THENX=3 : GOTO458 
IFXK>ZOTHENK=28 
GOTO438 
IEY>LBTHENY=18: 0010458 
IFY<ITHENYe1:GOTD458 
0=4897 +X422+7 : POKE7B1.,%: POKE7B2, 7: SYSCU:PRINTBSCVI :POKED, I 
POKEEE.8: IFJ=1THEN1188 
KO: Ri=Z-X:R2=5-Y: IFRICBANDABS(RIY>R2/ZTHENU=-21:POKEEE,FF | Iw1: 1m75: 00701188 
IFRA>BANDRI>R2/2THENUW23: 1876 : POKEEE, FF! Js=1:G0T01128 
Jm1 :POKEEE, FF; Um1 : 1m74:GOT01188 
1888 POKEH, 32: IFPEEKCH+F)I=1B2THENG=8 : GOTDZ218 
1885 IFPEEKCH+F)<SSTHENIB1D 
1886 SC=5C+1 :G0SUB2082: PRINT" IUBBBMI' SC :G=B: GOTDZ218 
1B1B HeH+F :POKEH, 46 
12858 GOTOZ21B 
1122 POKEK, 32: IFPEEK(K+UI=1B2THENJ=B : GOTOLBB 
1184 IFPEEKCK+UICSSTHENI111Q 
1185 LeL-1:G0SUB2888 :PRINT"M"TRB<IBIL! IFL=BTHENI 
1186 J=3:G0T0188 
1118 KmK+lU:POKEK, 45 
1158 GOTO198 
2288 Afi=K+U:GOT02285 
AA=H+F 
ROKERAR, 77: POKE368977 , 229: FORTT=14TO8STEP-2 : POKEDD. TT:FORMM=1TO128 
NEXTMM,TT : POKE36877 ,8: POKEDD, 15: RETURN 
POKEEE, 8: FOKECC.B:PRINT"ETIMM TEXAS KID ak" 
PRINT'"MOM BY MARTIN SCHERRER" 
2 FRINT'SOOMBBISCORE | Pr j ne" 
PRINT" BBBI"SC:PRINTTAB<SIGY"TII La Im" 
FC=PEEK (251) +256WPEEK (252) 
IFSCHECTHENFC#SC :GC=#INT<CFC/256) 'POKEZSZ , GC : POKE2S1, FO=-25640C 
FRINTTAB<19>" | u" 
PRINT" MBBI"FC:PRINTTAB<C1BI "TI ." 
PRINT'"WIBBHICH NIMM FIRE:M" 
PRINTTABCIY" III 1, 2 OR 3" 
FRINT'IIONBMPRESS Fi TO BEGIN" 
IFPEEK(1I7)<IS9ITHENGZOQ 
RETURN 
B FORA=BTO2847 : POKEA+5128. PEEK<(A+32768) : NEXT : RETURN 
FORA=S648105743 : RERDB : POKER, B: NEXT! RETURN 
12888 DATA2B, 62,255, 126,254, 126, 124,24, 24,68. 126, 254, 62,62,62. 126, 126,126, 188, 18 
8.188 
18818 DATA189, 255, 252,56, 124,255, 126, 127,126.62,24,24,68, 126, 127,124,124,124, 126 
„126,62 
18828 DATAS4. 54, 54,192, 255,63,8,8,64,254,15,3,3,1,192.,64,32,17,14,14,12,28 
180838 DATAB,8,4,15,31,59,192,128,8,8.2, 127,248, 192, 192, 128,8,6.4: 136, 112, 112,48, 


56 
12848 DATAD, 8.32, 240,248, 220,3,1.48,66,177,144,132,9, 164,61 





Nachdem Sie das Programm mit RUN 
gestartet haben, werden in Zeile 28 die 
Variabl. der gewonnenen Spiele (SP(1)- 
= Computer, SP(2)= Mitspieler) auf 
Null gesetzt. Der Befehl PRINTCHRS$S 
(14) schaltet auf Groß- und Kleinschrift 
um. 

Nun erscheint auf dem Bildschirm die 
Spielanleitung. Man zieht solange eine 
Karte, bis man der Meinung ist, nahe 
genug an 21 Punkten zu sein. Beträgt 
der Punktestand schon über 21, so 
bricht der Computer ab und zieht seine 
eigenen Karten. Die Kartenwerte wer- 
den mit Hilfe des Zufallszahlengenera- 
tors ermittelt (Zeile 1000 bis 1030). 
Dabei wird bei jedem Spiel gleichzeitig 
geprüft, ob schon vier Karten mit dem 
gleichen Wert ausgegeben wurden. Ist 
dies der Fall, so bleibt der Computer 
solange in dieser Unterroutine, bis eine 
andere Zahl, die noch nicht viermal 
vorkam, gefunden wird. 

Nachdem man nun eine Taste gedrückt 
hat, erscheint die Frage nach dem 





für den VC-20 


Einsatz für das Spiel. Hat man einen 
Betrag eingegeben, der größer als 0 und 
kleiner als das momentane Kapital ist, 
ermittelt der Computer eine Zufalls- 
zahl und zeigt diese in der linken 
oberen Ecke einer Spielkarte an. 
Wünscht man noch eine Karte, so muß 
"j" gedrückt werden. Wird keine Karte 
mehr gewünscht, so ist "n” zu drücken. 
Danach zieht dann der Computer seine 
Karten. Dies tut er, bis sein eigener 
Kartenwert gleich oder größer als 17 ist 
(Zeile 3000). 

Am Ende dieses Programmteiles wird 
dann der Spielstand des Spielers in der 
obersten Zeile ausgedruckt. Darunter 
erscheinen die Punkte des Computers, 
wer gewonnen hat und wie der Spiel- 
stand ist. Nach einem Tastendruck 
springt der Computer wieder nach 
oben, zu der Frage nach dem Einsatz. 
Hat man sein eigenes Kapital verspielt, 
so ertönt der Ausschnitt aus einer 
bekannten Fernsehmelodie und das 
Wort "lost- totaler Kapitalverlust”. Nun 


EIN- 





beginnt das Spiel von vorn, mit einem 
Kapital von 5000. Der Spielstand der 
gewonnen und verlorenen Spiele wird 
beibehalten und weitergeführt. 

Die Farben der Spielkarten werden aus 
den DATAs in Zeile 9100 gelesen und 
in Zeile 2003 mit CHR$(W) benutzt. 
Ab Zeile 8000 wird die Melodie zum 
Spielende aus den DATAs der Zeilen 
9000, 9001 und 9002 gelesen, wobei die 
erste Zahl die Note bestimmt und die 
zweite Zahl die Länge festsetzt. 

In der Zeile 7000 befindet sich eine 
Warteschleife, bis eine Taste gedrückt 
wird, die mehrmals im Programm mit 
"GOSUB 7000” aufgerufen wird. 

In Zeile 58 wird geprüft, ob der Einsatz 
größer als O0 und kleiner als das 
momentane Kapital ”Y” ist. Weiter 
wird überprüft, ob der Einsatz ein 
Betrag mit Komma ist, wie z.B. 135 DM 
oder 199,99 DM. Sind mehr als zwei 
Kommastellen vorhanden, so springt 
der Computer zur Eingaberoutine 
zurück. 


ShlZ? 


beuegsst sa he 


TOTALER KAPITALVERLUST 





COMMODORE VC-20 


6 CLR:DIML<12) : FOKE36873, 8: PRINT" AT" SCHR$C1429 

1 PRINT" # 

2 PRINT" % % 

3 PRINT" & = BR > VERS INH. 
4 PRINTT & 4 “ 88 > LAEUFT AUF DER GRUNDYERSIOH 
5 PRINT" & u; 

6 FRINT" 4 2 % & 

? PRINT" & 2 % 

& FRINT" & # = 

18 FRINT'" Mai cc) Br",'"Mi DETLEY PABST 1983" 

12 PRINT" AMD" 


13 PRINT"Wi 2 ULI SPERHAKE 1983" 
14 V=36878: POKEV, 15: FORA=244T0158STEP-1 : POKEV-2, %: POKEY-3, %+5: NEXT : POKEVY-4, +18 
15 FOR#=1T0588: NEAT :FORA=15TO8STEP-. 81: POKEY, #:NEAT: POKEV-4, . :POKEY-3, .:PÜKEV-Z, 


28 SPC1)=8:5P(2)=8: PRINTCHR$(C143; 


31 POKEV+1,25:PRINT"84 *+ 17 +4 %* m 

32 PRINT" AM EINE “ARTE ZU MZIEHEN, DRUECKEN #IE M BITTE *“" . 

33 PRINT"ZBOUENSCHEN #IE KEINEN BPARTE MEHR,DRUECKEN M WIE "1" 

36 PRINT"MWIEI ILEICHSTAND GE- M UWINNE 1! WRAFITAL: 5996" 
37 PRINT"MAI- I IT Il Ten, 

38 GOSUB?888 

33 Y=5008 


48 FORYT=2TO1L:LCYT3=8:NEKTTT 
41 POKEV+1,42:PRINT" TIER naumam 3" 
42 PRINT" uaeuea m 3" 
43 PRINT" aagme 
44 FRINT'dA @ 3Bgm 


4 N a = 
ThaBapHin eonide Vals 
«..„but it won't be easy! 


PARTICIPATION — that is the name of OUR game. All our software contains a unique score verffication 
mechanism allowing us to add a new dimension to computer games. Every ‚July and January we will be 
ishing a ranking list of the top 1000 scorers in each game with the overall top 100 "grand masters’ each 
their 


position. 
Septernber is the last monıth 10 qualify for the Black Hole championship, However, from October the 
sender of the highest valid Score each month wi win software of their own chokce to the value of £S0. 


"LUNA CRABS 


Jetzt auch in Deutschland 
Fragen Sie Ihren Software Händler 
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PRINT" = a 
PRINT" = 4 
PRINT" [. 
PRINT'M A 
FRINT'3 ® = 
PRINT'g 8 a 
a 
A 
= 


zum 


PRINT" 4 8 
PRINT" @ 3 
PRINT'Im 3 = 
PRINT" g = gm am a 
PRINTCHRSC14) ; "AMASOMENTANES APITAL —— BETRREGT" SYS" INPUTUW" GE 
IFE>AANDE<=WANDINTCEK188)=E%1BBTHENGOTO4BE 
PRINT" a9 =. 9- Las L "; 
IHPUT "" SERDETADKTSINDADSDSUSTATSTETKDASTETATETEDTR." 5 E 
GOTOS8 
FORC=38TO156STEP.5:POKEV-13,C:HERT 
PRIMT"TIAGSDÜOEISTEDTEEN IITTE ° *“ DRUECKEN " 
FORC=113T038STEP-.5: POKEV- 13,C: NEXT : GOSUE788@: POKEY+1, 25 
PRINT" TIRIIISEIN" RESTORE : FORYU=1T028:READN,L:NEXTWU:PS=B:PC=B 20 
GETO$: IFn$=" J"THENGOSUBEBBB : GOSUB 1888 : GOSUB2BBB : PS=PS+R: IFPS>ZLTHENAS="N 
IFas=""THENS9IB 
IFQ$="N"THENPRINT"ARTEINE TUNKTE: "PS: PRINT" MODDEN" :GOTO 3808 
GOTOSIG 
1898 A=INTCRNDC1I#18)+2: IFA=SORA=STHENLEUB 
1818 FORH=2T011 
1828 IFA=HTHENLETLCH)=LCHI+L:IFLCHIP4THENEBR 
1825 NEXTH 
1038 RETURN 
2868 READN 
2003 FRINTCHRS CD 5; "ESS ERSZSET ER 
4 
2085 PRINT" EEE" ; RETURN 
3066 GOSUB 1886: GUSUE2848 :PRINT"TIITITN" ; :PC=FC+R: IFPC<1TTHENZEBE 
3815 PRINT" ATEEITTTEINE TUNKTE:"; PC 
3028 IFPC=<21ANDPS>21THENGOTO3825 
3622 IFPC=<21ANDFC>=PSTHEN3B23 
3923 GOTO3438 
3825 PRINT "RCH HABE GEWONNEN!" YeW-E:SPC1I=SPC1)+1:G0T03858 
3438 IFPS=<21ANDPC>21THEN3035 
3632 IFPS>PCANDPS<=21 THENGOTO3G3S 
3933 GOTI3248 
3835 PRINT"MXU HAST GEWOHNEN!" :W=W+E:SP(2)=SP(2)+1:G0T03858 
IFPS>21ANDPC>Z1THENGOTO3B25 
IFSFCLDSSPCZITHENPRINT"M"SSPCLIS":"SPCZ);"FUER MICH! 
IFSPC2I>SPCSTHENPRINT"M"SSPC2);":";SPC19;"FÜER —ICH" 
IFSPC15=SPC2> THENPRINT" MI LEICHSTAND" SSPC1)" 2" ;SPC23 
3 GOSUB78UB 
IFF=BTHENGOTOSBBB 
GOTO4G 
FORT=38T0255STEP.5 
POKEY-13; T: PRINT" ; T:GOSUB7888 : NEXTT 
PRINTCHRSC 142) "TIERE EEE 


m 
sa 
zu m MI 


run kan sa sa IM IE 


BI BI EB le 

FRINT'IBBIS mr wg WIN m 

PRINT"EMTOTALER KAPITALYERLUST" : GOSUBSOHR : PRINTCHR$C 14) :GOT033 

FÜKEV, 15: POKEV-2, 128: FORUI=1T028: NEXTUI:POKEV-2, 8: PÜKEV, 8: PRINT"IEITITITY" ;: 
RETURH 
’a8g FÜKE13S,6:UAIT138.1:RETURN 
8aa8 FÜkEY,15:RESTORE : FORAS=1T028: READN.L:FOKEY-2,N:FORAD=1TOL :NEXTAD, AS: RETURN 
863 DATA195. 206, 269, 206, 195. 268,213, 208, 195, 288, 219. 200, 215. 188.219, 196. 269, 206 
sacl DATA195, 208,209, 260,228, 208.225, 208,219, 198, 221,186, 225, 268 
Sasz DATAZ15,188, 219.108. 269, 359,8,6 
3165 DATAZE, 31,30, 144,159,156.28,31,38.144,28,31,38; 144, 159, 156, 28 





CLIFFORD & MARK 
RAMSHAW 


COMMODORE 64 
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Spectrum Hardware Manual 
von Adrian Dickens 


Der Sinclair ZX-Spectrum hat die Computerwelt 
revolutioniert. 

Dieses Buch erklärt das Geheimnis seines 
Erfolges und wie das Gerät arbeitet. Viele 
Aspekte, die das offizielle Manual nicht oder nur 
kurz streift, werden Ihnen hier ausführlich 
vorgestellt: Wie die Farben Ihres TV-Monitors 
optimal eingestellt werden können, wie der 
interne Lautsprecher durch einenanderen ersetzt 
wird und vieles mehr. 

Dazu wird gezeigt, wie der Spectrum mit 
zusätzlicher (auch selbstgebauter) Hardware 
aufzurüsten ist, 


OVER THE © 
IPECTRUAN 





V6-20 Innovative Computing 


von Clifford Ramshaw 


Ein Buch, geschrieben von einem der kreativsten 


Programmierer in der Microcomputer-Welt! 


Spannende, interessante Spiele wie Nuclaer 


Attack, Space Fight, Hopper, Invasion, Squash, 
Golf, Grand Prix, Adventure, und sogar Schach! 


Komplette Listings all dieser und weiterer Spiele, 
leicht verständlich mit vielen Tips und Tricks 
angereichert, eröffnen Ihnen neue Dimensionen 


DM 29,80 


Ihres VC-20. 


DM 29,80 


COMMODORE 64 Games Book 


von Clifford und Mark Ramshaw 


Erleben Sie die Fascination der Computer- 
Technik! 

Die Brüder Ramshaw gelten in England als die 
Nummer 1 in Sachen Commodore programmie- 
ren und dieses Buch wurde von der Fachpresse 
als eines der besten für den CBM 64 gelobt. 
Jedes der hier vorgestellten Programme macht 
hervorragenden Gebrauch von den Fähigkeiten, 
die den Commodore 64 gegenüber anderen 
Geräten seiner Preisklasse auszeichnen 

Kein Commodore-64-Anwender sollte dieses 
Buch in seiner Sammlung missen. 


DM 29,80 


Du) 





80 
29,37 


Over the Spectrum 


von Alfred Milgrom 


Ein Buch, das alle Wünsche von Spectrum-Fans 
erfüllt: 

Komplette Listings von mehr als 30 Programmen, 
die zeigen, was in dem kleinen schwarzen Kasten 
an Kraft und Raffinesse steckt! 

Die Palette reicht von Geschicklichkeitsspielen 
wie Frogger, Meteor Storm, Eliminator über 
Strategie-Spiele wie Schach zu echten Adven- 
tures. 

Nützliche Winke und Tips, sowie Geschäftspro- 
gramme machen dieses Buch zu einem 
Nachschlagewerk für jeden Spectrum-Anwender 


DM 39,80 


En 





Se 
INNOVATIVE 
COMPUTING 
Clifford Ramshaw 











The Gomplete Spectrum ROM Disassembiy 





von Dr. lan Logan und Dr. Frank 0 


Der ZX-Spectrum wird von seinem eingebauten 
16-K-ROM gesteuert. 

Die beiden Autoren erläutern Ihnen den 
Interpreter und zeigen Ihnen, was der Spectrum 
tut und was dabei in ihm vorgeht. 

Im Detail: Befehlsroutinen, Lautsprecher, Input / 
Output, Variable und mathematische Funktionen. 
Ihr Spectrum besitzt eine große Anzahl von 
eingebauten Funktionen. Dieses Buch hilft Ihnen, 
sie zum eigenen Nutzen zu verstehen und sie in 
eigenen Programmen sinnvoll einzusetzen. 

Ein Muß für alle engagierten Spectrum- 


Programmierer! DM 39,80 


METEORIC ae 





Not only 30 programs for the ZX-81 IK 
von Melbourne House Publishers 


Battleships, Roulette, Blackjack, Starwars, 
Breakout, Memory, Miniadventure, 1K-Draughts, 


Doch nicht nur 30 Programme für den ZX-81 in 
der Grundversion enthält dieses einmalige Buch: 
Jedes Programm wird erklärt, Programmiertips 
werden gegeben und viele Peeks und Pokes 
erläutert. 

Ein Buch, das zeigt, was in 1 K stecken kann! 


DM 29,80 


ENTER THE DRAGON 


von Colin Carter 


Eine Sammlung kreativer Programme für den 
Dragon 32. Das Buch enthält komplette Listings 
für viele der bekannten Arcade- und Abenteuer- 
Spiele wie Lunar Lander, Invaders, Meteor Storm, 
3-D-Treasure Hunt, Flightsimulator und viele 
andere. 

Viele Programme nutzen die hervorragenden 
Möglichkeiten der Dragon Highresolutiongrafik. 


Enter The Dragon zeigt Ihnen sogar, wie Sie 
Ihrem Drachen das Sprechen beibringen können. 
Dazu eine Menge Tips und Informationen, die für 


den Beginner ebenso nützlich sind, wie für den 


Fortgeschrittenen, 


DM 28,30 


m 





Meteoric Programming for the ORIG 1 
von John van der Reyden 


Viel Software für wenig Geld bietet Ihnen dieses 
Buch. 

30 speziell für den ORIC 1 entwickelte 
Programme: z.B. Luna Lander, Eliminator, Sea 
Copter und viele mehr, die Ihnen zeigen, welche 
Farben, Grafiken und welch herrlichen Sound der 
ORIC produzieren kann. 

Selbsverständlich fehlen auch praktische Tips 
nicht, die für alte Hasen ebenso interessant sind, 
wie für junge Füchse! 

Eine ideale Ergänzung dieses Computers! 


DM 29,80 
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„uter Games ‚Series 


"Ihe, ComE 


vor 
(BEER S ot emtertainina aa“ 





er ; Series 
Their Computer Games Ser: 


Their Computer Games Series 


Das Yirgin Gomputerbücher-Programm 
ames for your VIG-20 (VC-20) 
Games for your Dragon 32 
Games for your TRS 80 
Games for your ORIG 1 
Games for your ZX-81 
Games for your ZX Spectrum 
Games for your Atari 
Games for your BBG Micro 


Bücher, die mehr aus Ihrem Computer machen! 
Jedes einzelne Buch enthält mehr als 20 komplette, spielfertige 
Programmlistings für den betreffenden Computer. 


Alle Programme werden erläutert und sind mit 
Bedienungsanleitungen versehen. 


Ein Computerlexikon, das alle wichtigen Begriffe aus der 
Computerterminologie enthält, vervollständigt den Inhalt 
jedes Buches dieser Reihe. 


jedes Buch nur DM 19,80 


Händleranfragen erwünscht. ] Softwareautoren gesucht - Info anfordern! 





Sprite Designer 


für Apple II 


Vielen Benutzern des Apple ist es sicher schon aufgefallen: Für schnelle Spiele, wie sie 
in Massen auf dem Markt sind, erweisen sich die Apple Shapes als um einiges zu 
langsam. Dies liegt an der Art und Weise wie die Shapes eingegeben werden. Jedes 
Table muß erst auf die Vektoren abgesucht werden und in Abhängigkeit hiervon werden 
die Figuren auf den Bildschirm gezeichnet. Dies beansprucht wertvolle Rechenzeit und 
setzt hiermit die Darstellungsgeschwindigkeit herab. Doch wie kann man diesem Übel 
nun beikommen? Die Antwort lautet: Sprites. 


Was unterscheidet die Sprites nun im 
wesentlichen von den uns altbekann- 
ten Shapes? Der Trick (und damit auch 
der Unterschied) liegt in der Art und 
Weise, wie sie abgespeichert und auf 
den Bildschirm gebracht werden. 

Sie werden nicht nach irgendwelchen 
vektoriellen Überlegungen zerlegt und 
dann wieder auf den Bildschirm ge- 
rechnet, sondern sie werden so abge- 
speichert, wie sie dann auch auf dem 
Bildschirm erscheinen: Als Bit-Images. 
Und nun schon wieder ein Fremdwort, 
was ist also ein Bit-Image? 

Eine Figur, oder auch jeder Buchstabe, 
besteht aus einer Bitkombination, ist 
also binärverschlüsselt - bedingt durch 
die besondere interne Representation 
des Computers erscheint sie auf den 
ersten Blick hexadezimal verschlüsselt. 
Die Bitkombination, die notwendig 
wäre, um einen Punkt auf den Bild- 
schirm zu bringen sieht folgender- 
maßen aus: 0000001 und ergibt die 
Hexadezimalzahl 10. 

Speichern wir diese Hexzahl in $2000, 
so ergibt sich ein einzelner Punkt in der 
linken oberen Ecke des Bildschirms. 
Fein, also Speichern wir diesen Wert in 
$2001 und wir erhalten einen Punkt, 
der um eine Position neben dem ersten 
liegt? Weit gefehlt, der nun erzeugte 
Punkt liegt 7 Bit-Positionen neben dem 
ersten. Was können wir nun also tun, 
um den Punkt in einer feineren Schritt- 
weite über den Bildschirm zu bewegen? 
Um diese Frage zu beantworten müs- 
sen wir uns den HGR Bildschirm etwas 
genauer betrachten. 

Dieser Bildschirm hat eine Auflösung 
von 280x192 Bildpunkten. Die 280 
Bildpunkte auf der X-Ebene erklären 
sich folgendermaßen: 40 Byte x 7 Bit. 
"Wo bleibt das 8. Bit?” werden nun 
einige erstaunte Leser fragen. Die 
Erklärung beruht darin, daß das 8. Bit 
die Farbe des Bytes kontrolliert. Die 
Figuren, die auf dem Bildschirm 
gezeigt werden sollen, bedie- 
nen sich also in ihrer Darstellung der 
erwähnten sieben Bit. 

Um nun unseren Punkt über den 
Bildschirm mit einer Schrittweite von 1 
zu bewegen, müssen wir den Punkt in 
jede Bit-Position des Bytes schreiben. 
Die Inhalte müßten also in folgender 
Reihenfolge verändert werden: $01, 
02,04.08,10,20,40. Es findet also immer 





eine Verdoppelung des vorhergehen- 
den Wertes statt. Diese Verdoppelung 
wird in derMaschinenebene durch den 
Befehl Akkumulator one Shift Left 
(ASL) bewerkstelligt, hier spricht man 
von geshifteten Bit-Images. Es wäre 
nun möglich, diese Shiftung durch eine 
Maschinenroutine immer wieder aus- 
führen zu lassen - bei diesem Punkt 
bestimmt keine zeitraubende Sache, 
wenn wir jedoch mit großen Bit-Images 
arbeiten (und das wollen wir mit 
unseren Sprites ja schließlich), so 
kommt es zu einem großen Zeitverlust 
und Zeit war ja eigentlich das, was wir 
durch unsere Sprites sparen wollten. 
Wie können wir nun diesen leidigen 
Punkt noch aus dem Weg räumen? 
Eigentlich dürfte diese Lösung nicht 
allzu schwer sein - wir legen eine 
Spritetabelle an, die alle 7 geshifteten 
Bit-Images unserer Figur beinhaltet. 
Wie man dies von Hand machen kann, 
zeigt das Schaubild Nr. 1. Vielleicht 
sollten Sie sich einmal mit den handge- 
shifteten Images beschäftigen, so daß 
Sie das System auch wirklich verstehen. 
Eine Kuriosität, die sich hierbei noch 
ergibt ist folgende: Die Bit-Images wer- 
den spiegelverkehrt aufden Bildschirm 
gebracht. Um den o. g. Punkt an die 
äußerst linke Bitposition zu bringen, 
müssen wir 0000001 und nicht 1000000 
schreiben. 

Warum dies der Fall ist, darf'man nicht 
fragen. Es ist eine genauso willkürliche 
Maßnahme, wie die unlineäre Orga- 
nisation des Grafikbildschirms, ein an- 
deres Problem, das sich uns noch in 
den Weg stellt. Ich kann mir immer nur 
neidvoll die schöne Linearität des C-64 
Bildschirms betrachten. 

Aber wir Apple User müssen mit die- 
sem Problem arbeiten und es in den 
Griff bekommen. Eine Lösung wäre es 
sicher, eine Formel zu entwickeln, die 
die jeweils angegebene Zeile koordi- 
natenrichtig berechnet. Aber auch hier 
gibt es schnellere Lösungen, die soge- 
nannten Nachschlag-Tabellen (unzu- 
reichende Übersetzung des englischen 
Begriffes LOOKUP TABLE). Mit Hilfe 
einer solchen Tabelle kann man quasi 
linear auf die gewünschte Bildschirm- 
zeile zugreifen (Abb. 2). Wir benötigen 
nun also nur noch ein Plotprogramm, 
das die erzeugten Images auch aufdem 
Bildschirm abbildet (Ab. 3). Diesem 








Programm müssen aus Basicprogram- 
men oder anderen Maschinen-Routi- 
nen folgende Werte übergeben werden: 
Sprite Nummer, Y- Position (0-192), X- 
Byte (1-40), X- Bit (1-7). 

$EO: XBYTE, $El: XBIT, $E2: YPO- 
SITION, $E7: Spritenummer- ein Poke 
in die entsprechende Speicherzelle ist 
auch möglich. Danach muß die Zei- 
chenroutine (XOR-Darstellung) durch 
einen Sprung nach $6000 aufgerufen 
werden. Dieses hier vorgestellte Pro- 
gramm verkürzt nun die Sprite Ent- 
wurfzeit um einen wesentlichen Fak- 
tor. Der Programmierer kann sich also 
auf die Spielfiguren und sein Pro- 
gramm konzentrieren. Bei 21x21 Bit 
großen Sprites wird der Entwurf der 
Figur von Hand ziemlich kompliziert, 
und wem das noch leicht fällt, das 
Shiften von Hand gibt ihm sicher den 
Rest. 

Wie arbeitet das Programm also in 
groben Zügen? 

Als erstes wird in dem Raster nichts 
anderes getan, als Bitpositionen auf | 
oder auf 0 zu setzten. (Die Nullsetzung 
erfolgt automatisch!) 

Der Entwurf erfolgt auf folgende 
Weise: Der Cursor wird im Gitter über 
die selben Tasten bewegt, wie der 
Cursor in der Textebene bei einge- 
schalteter Esc.-Funktion. Also I für 
aufwärts, M für abwärts, J für links und 
K für rechts. Wenn man zusätzlich zu 
der Richtungstaste noch CTRL drückt, 
so wird der Cursor an der letzten 
Position abgebildet. Durch die D Taste 
kann man bereits gesetzte Punkte 
wieder Löschen. Mit Q steigt man aus 
der Definition des Sprites aus. 

Daran anschließend werden die Bit- 
kombinationen in 7-Bit-Gruppen auf- 
geteilt. Aus diesen 7-Bit-Gruppen wer- 
den nun die Images der ersten Sprite- 
position ermittelt. Mit Hilfe von String- 
funktionen simuliert das Programm 
anschließend den ASL-Befehl auf 7 Bit 
beschränkt. Auf diese Art werden nun 
die fehlenden 6-Bit-Positionen errech- 
net und in einer Spritetabelle abgespei- 
chert, an deren Beginn noch ein 
relativer Index geschrieben wird. Die- 
ser Index gibt an, an welcher Speicher- 
stelle die Startposition der Sprite- 
Images stehen. 

Zusätzlich steht vor jedem Bit-Image 
eine Angabe, die dem Plotprogramm 





mitteilt, wieviele Bytes das Image breit 
und hoch ist (sonst 'weiß’ das Plotpro- 
gramm nicht, an welcher Stelle esin die 
nächste Zeile springen soll). 
Die Simulation des ASL-Befehls er- 
folgt auf folgende Art und Weise: 
Nehmen wir an, daß der Binärstring 
0101101 lautet. Das Programm addiert 
links eine zusätzliche Null hinzu 
050101101 und schneidet durch den 
LEFTS Befehl die letzte Stelle hinweg 
0:010110’1, so daß der Binärstring 
wieder die Originallänge erhält, nun 
lautet dieser geshiftete String also 
00100110. 
Wie muß man nun mit den abgedruck- 
ten Programmen und Tabellen umge- 
hen? 
1. Eingabe der Nachschlagtabelle von 
$6100 - $627F 
2.Abspeichern der Tabelle mit 
BSAVE LOOKUP, A$6100, LS17F, 
oder für Kassettenbenutzer 





6100.627FW 
3.Eingabe des Assemblerlistings 
PLOTTER oder des Hex-Dumps 
(Abb.4) 
4.Abspeichern BSAVE PLOTTER.- 
OBJ, A$7000, L$7D oder 
7000.707CW 
5.Eingabe des Programmes Sprite- 
Designer (Abb. 5) 
6.Speichern des Programmes 
7.Eingabe der Cursorshapes von 
$8000-$8017 (Abb. 6.) 
8.BSAVE SHAPES, A$8000. 1$17 
oder 8000.8017W 
9. Entwurf eines Sprites im Gitter des 
Designers 
10.Speichern des Sprites 
11.Laden von LOOKUP, PLOTTER.- 
OBJ, "Name des Sprites’ 
12.Abspeichern der Adressen der ver- 
wendeten Spritetabellen ab $6290 
(oder jeder anderen Stelle, wenn Sie 
SPPNT entsprechend verändern!), 


Schaubild Nr.i: Entwurf eines Sprites von Hand 


Byte 1 Byte 2 
1248124 1248124 


“r%* 
Rr% 
R% 

r% 


er 
“%* 
RR 

r% 


wr* 
“x 
ar 

% 


Re 


** 


... 
. 
“. 
xrr 


Entwurf des Sprites 
auf Karopapier, 

in einer 7-Bit Binär- 
darstellung. 


Byte 1 


Hex-Daten 
Byte 2 


OF oo 


1E 00 
1E 00 
or oo 


1E 00 
Sc 00 
3C 00 
1E 00 


sc 00 
78 oo 
78 00 
SC 00 


78 00 
70 o1 
70 01 
78 00 


70 01 
60 03 
60 03 
70 1 


60 03 
40 07 
40 07 
60 03 


40 07 
00 or 
00 or 
40 07 


Umrechnung der Binärzahlen 


in Hexadezimalzahlen. 


Anschließend wird für jede geschiftete Position ein Vorspann geschrieben, 
aus dem die Höhe und die Länge des Sprites zu entnehmen ist,in unserem 


Beispiel: Länge- 2 Byte, 


Höhe- 4 Byte. 


Es ergibt sich also für die 1. Bit 


Position unseres Beispielsprites folgende Darstellung: 


02 04 OF 00 1E 00 1E 00 OF 00. 


Ganz am Anfang der Spritetabelle muß ein sogenannter Index stehen, der 
relativ zu der Startadresse anzeigt, wo die Bitpositionen zu finden 
sind. Der Index wird in einer Highbyte-Lonbyte Darstellung angegeben. 
Es ergibt sich also wieder für unser Beispiel folgender Spritetabellen- 
index: 
00 OE' 00 18 00 22 00 2C 00 36 00 40 00 AA. 


in Hibyte, Lobyteformat 

13. Aufruf. der Routine PLOTTER.OBJ 
nach Übergabe der XBYTE, XBIT, 
YLOC, SPNUM Werte aus einem 
Basic oder noch besser Maschinen- 
programm. Anmerkung XBYTE 
und XBITerrechnen sich folgender- 
maßen: 
XBYTE = INT (XPOS / 7), 
XBIT = XPOS - XBYTE * 7 


Wir wünschen Ihnen mit diesem 
Programm viel Spaß und hoffen, 
daß sich einige Leser dazu motiviert 
fühlen, Verbesserungen und Ergän- 
zungen zu schreiben. Mit etwas 
Routine läßt sich hierdurch ein 
komplettes Grafikpaket für den 
APPLE entwickeln. Also viel Spaß 
beim Eintippen, Ausprobieren und 
Modifizieren des Programmes. 
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SOURCE FILE: FLOTTER 

0000: 1 *ZEICHEN ROUTINE FUER 
0000: 2 *SPRITE DESIGNER 

0000: 3 *(C) 1985 BY UDO KILLERMANN 
0000: 4 %* 

0000: 5# 

esse NEXT OBJECT FILE NAME IS FLOTTER.OBJO 
7000: & ORG #7000 
O0OEO: 7 XBYTE EQU SEO 

O0E1: 8 XBIT EQU #$Ei 

O0E2: 9 YLOC EQU $E2 

OOE7: 10 SPNUM EQU $E7 

00053: 11 TEMP EQU #03 

O0ES: 12 XCOUNT EQU $ES 

0004: 13 SCRLO EQU #04 

0005: 14 SCRHI EQU #05 

O0OEB: 15 SPRLO EQU #E8 

O0E9: 16 SFRHI EQU $E9 

0006: 17 YWERT EQU #06 

OOEA: 18 KOLL EQU $EA 

21F8: 19 PARAM EQU #21F8 
6100: 20 TABHI EQU #8100 
61C0: 21 TABLO EQU &61C0 
6290: 22. SPPNT EQU $6290 

Ss 

2700: 253 FSEUDO EQU #2700 
70007 24 * 

7000: 25 * 

7000: AS E7 26 START LDA SPNUM 
7002:0A 27 ASL A 
7003:A8 28 TAY 

7004:B9 90 62 297 LDA SFPNT,Y 
7007:85 EB 30 STA_ SPRLO 
7009:C8 31 INY 

700R:B9 90 62 32 LDA SPFNT,Y 
700D:85 E9 33 STA SPRHI 
700F:A9 00 34 LDA #300 
7011:85 EA 35 STA KOLL 
7013: 56 *SPRLO UND SFRHI ZEIGEN NUN 
7013: 37 *AUF DEN ANFANG DES GESUCHTEN 
7013: 58 *SPRITETABLES, ES GILT NUN 
7013: 37 *DIE BENOETIGTE GESCHIFTETE 
7013: 40 *BITFOSITION ZU FINDEN 
7013:A5 Ei 41 LDA XBIT 
7015:0A 42 ASL A 

7016:A8 43 TAY ® 
7017:E1 EB 44 LDA (SFRLO),Y 
7019:AA 45 TAX 

701A:C8 46 INY 

701B:Bi1 E8 47 LDA (SPRLO),Y 
701D:18 48 CLC 

701E:65 EB 49 ADC SFRLO 
7020:85 EB so STA SFRLO 
7022:8D SD 70 51 STA PUNKT+1 
7025:8A 52 TXA 

7026:65 EI 53 ADC SFRHI 
7028:85 EI 54 STA SFRHI 
702A:8D SE 70 55 STA FUNKT+2 
702D:AO 01 56 LDY #01 
702F:EB1 EB 57 LAFO LDA (SFRLO),Y 
7021:99 F8 21 58 STA FARAM,Y 
7034:88 5 DEY 

7035:10 F8 60 BFL LAFO 
7037:A2 02 61 LDX #02 
7039:A5 E2 &2 LDA YLOCc 

























;ZEIGER AUF 

;SFRITE 

;Y FOSITION AUF BILDSCHIRM 
ıKOLLISIONSZEIGER 

; VERSCHIEDENE SPRITE INFORMATIONEN 

; NACHSCHLAG 

; TABELLE 

;BEINHALTET DIE ANFANGSADR. DER SFRITE 


















WIRD ERST IM FROGRAMM MODIFIZIERT 






;LADEN DER SPRITENUMMER 
‚MAL 2 

























;LOESCHEN DES KOLLISIONSZEIGERS 












;LADEN DER BIT FOSITION 
;MAL 2 






;HIBYTE LESEN 
;FUER SFAETER SICHERN 
;ZEIGER AUF LOBYTE 







; ZEIGER AUF GESCHIFTETE FOSITION 





;FROGRAMM MODIFIZIEREN 
;HIBYTE WIEDER EINLESEN 
;ZEIGER AUF GESHIFTETES HIEYTE 










; PROGRAMM MODIFIZIEREN 
;BREITE UND HOEHE 

;DES SFRITES WERDEN 

;IN DEN ZWISCHENSFEICHER 
3VEBERTRAGEN 












;ERSTES SFRITEBYTE 








703B:85 STA YWERT 

703D: * 

703D: *INITIALISIERUNG IST FERTIG, NUN KANN 

703D: *DAS SFRITE AUF DEN BILDSCHIRM 

703D:AD LAPI1 sANZAHL DER BYTES 
7040:85 ;IN EINER ZEILE 

7042:A4 ;LESEN DER GEWUENSCHTEN 
7044:C0 ;BILDSCHIRMFOSITION 
7046: 90 

7048: AO 

704A:BO 

704C:B9 ;ADDIERE DIE 

704F:85 ; ZEILENBREITE 

7051:B9 

7054:85 

7056: 

7056: A4 ;HORIZONTALE STARTPOSITIION 
7058:C0 LAP2 ;AUS DEM BILD? 

705A:BO 

705C:BD FUNKT 

705F:85 

7061:31 (SCRLO) ,Y ;UEBERPRUEFUNG AUF 
7063:29 ##7F ;KOLLISION 

7065: F0 LAB ;WENN JA 

7067:85 KOLL WIRD FLAG GESETZT 
7069:A5 Mi LAB TEMF 

706B:51 (SCRLO) ,Y 

706D: 91 (SCRLO) ,Y 

706F:E8 WEITER ;NAECHSTES SPRITE BYTE 
7070:C8 ;NAECHSTE BILDSCHIRMPOSITION 
7071:C6 XCOUNT ;UVEBERPRUEFUNG OB IMMER 
7073:DO LAP2 ;NOCH 1. ZEILE 

7075: IST NUN AUF DEM SCHIRM 

7075:E6 YWERT ;NAECHSTE ZEILE 

7077:CE FARAM+1 

707A:DO LAPI ;NOCH NICHT FERTIG 
797C: 60 


Erklärung des Programmes Sprite Design 
Verwendete Variablen und ihre Verwendung : 


SH - Startadresse der Spritetabelle 

SC - Startadresse der Spreitetabelle, nach den relativen Indices 

XP - X-Position des Cursors im Designgitter 

YP - Y-Fosition des Cursors im Designgitter 

A#(X,Y) — Feldvariable zur Erstellung der ersten Bitposition des Sprites 

B#(X,7) —_Variablen_zur Errechnung der. übrigen & Bit Positionen_des_Sprites 

%# - Dual string mit der Länge 7 Bit*(Breite des Sprites in Byte + 1 Hilfs- 
byte zum Shiften) 


X$(T),E$ - 7 Bit Binärstings zur Errechnung des zu pokenden Bitimages 
E - Zu pokende Dezimalzahl, die in die Spritetabelle eingefügt wird 
S - Hilfsvariable für die Abbildung des richtigen Cursors 


<10-30> Initilisierung der Startadressen des Sprites 
<40-100> Schreiben der Copyrightbotschaft 
<110-140> Laden und Schützen der Cursorshapes 
<150> Durch Setzen des Himem auf Anfang der Spritetabelle wird erreicht, daß 
die Spritetabelle nicht von den Variablen überschrieben wird. Dies wird 
erst wichtig, wenn die Größe des Sprites über ca. 10%10 hinausgeht. 
<170-200> Eingabe der Spritegröße und Dimensiomierung der Feldvariablen 
<210-220> Definition von Hilfsfunktionen zur Darstellung des Sprites im Gitter 
<250-300> Darstellung des Gitters auf der HGR2-Seite 
<310-360> Nullsetzen der verwendeten Feldvariablen 
<370> Ermittlung der Cursorposition in der Mitte des Gitters 
<380-400> Interpretation der gedrückten Taste, beinhalte I für aufwärts, 
M für abwärts, J für links, K für rechts — im Zusammenspiel mit 
der Ctrl.-Taste wird der Punkt im Gitter abgebildet. D löscht R 
bereits gesetzte Punkte.Mit @ wird die Definition eines Sprites 
beendet. 
<540-570> überprüfung ob der Cursor sich über den Rand des Gitters hinaus- 
bewegt, wenn ja, so wird er an der gegenüberliegenden Seite wieder 
in das Gitter gebracht. 
<590> Berrechnung der & fehlenden Bit-Positionen des Sprites und Kalkulation 
der Indice der Tabelle, durch die Unterroutinen in 1000-4050. 
<600-640> Abspeicherung des Sprites 
<1000-1040> Darstellung der Cursor im Gitter 
<2000-2050> Umwandlung der punktweisen Darstellung des Sprites in eine 
zeilenweise Darstellung 
<2070-2120%’ Ergänzung der zeilenweisen Darstellung zu einer Dastellung, 
Ei die der computerinternen 7-bit Darstellung entspricht. 
<2130-2180> Simulation des ASL (AKKU SHIFT LEFT) Befehls auf 7 Bit beschränkt 
<2190-25300> Berrechnung einer Dezimalzahl aus den 7-Bit-Binärstrings, die 
genau wie die relativen Indice in die Spritetabelle ‘gepoked’ 
werden 

<3000-3040> Zerlegung der Binärstrings in 7-bit-Strings 

<4000-4050> Berrechnung der Dezimalzahl aus den Binärstrings 





8000- 02 00 06 00 
8008- 24 2C 36 2E 
8010- OE 24 2C 36 


SH 6x 16” N 
sc SH + 14 
SL = SH 


320 
3230 
240 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
4890 
490 


500 


HOME 
INVERSE 
VTAB 7: HTAB 13: PRINT "SPRITE DESIGN" 
NORMAL 
VTAB 10: HTAB 18: PRINT "BY" 
VTAB 15: HTAB 8: FRINT "UDO KILLERMAN N“ 
VTAB 20: HTAB 14: PRINT "(C) 1983" 
PRINT CHR$ (4); "BLOAD SHAPES, A$8000" 
FOKE 232,0: FOKE 233,8 % 16 
SCALE= 1 
ROT= © 
HIMEM: SH 
HOME . 
VTAR 12: INPUT "FELDGROESSE (X,Y) MAX. 21X21 2 ";X,Y 
IFX > 210RX < O00RY > 21 OR Y < O0 THEN FRINT CHR$ (7: GOTO 160 


DIM A$(X,Y) 
DIM B$(7,Y) 
DEF FN A(X) 
DEF FN B(X) 3.3%X%0 
HER2 
HCOLOR= 3 
FÜR Z = 0 10 X 
HPLOT FN A(X) + Z X 7, FN BiY) FN A + 2% 7, FNBOW +Y% 7 
NEXT Z 
FOR Z = 0 TO Y 
HFLOT FN A, FNEV +2 %7 FN AK + X 7, FN BW + 2% 7 
NEXT Z 

As = "0" 

FOR I=0T0X- 
FOR Z=0T0Y- 

A$(1,Z) = As 
NEXT Z 
NEXT I 

XP = INT (X / DeYP = INT (YV / 

& = 1: GOSUB 1000 
GET AsıS = 3 
IF ASC (As) 
IF ASC (Ms) 
IF (A$) 
IF (As) 
IF (A$) 
IE (A$) 
IF (As) 


ı . 
1 


7 THEN A$(XF,YF) "1": GOSUR 1006 

10 THEN A$(XP,YFP) "1"2 GOSUB 16 

11 THEN A$(XF,YP) "1"r GOSUR 100 

13 THEN A$(XF,YF) = "1": GOSUB 1000: YP 
73 THEN GOSUB 1000: YF YR=% 

74 THEN GOSUB 1000:XF XP = 1 

75 THEN GOSUB 1000:XF xF +1 

IF (A$) 77 THEN GOSUB 1000: YP yP #1 

IF (A$) = 68 THEN S = ?r GOSUB 1000:A$(XF,YF) = "0" 
IF "@" THEN 550 

IE ’ X THEN XF = 0 


nn 


na 








.AUTOMATA UK LTD. 


WUNSCHT SEINEN FREUNDEN IN DEUTSCHLAND 


EIN FROHES WEIHNACHTSFEST! 


Unsere Programme erhalten Sie in allen guten Computershops 
und über alle guten Software-Versandhäuser Ihres Landes. 


1000 
1010 
1020 


1030 
1040 
2000 
2010 
2020 
2030 
2040 
2050 
2060 
2070 
20890 


2090 
2100 
2110 
2120 
2130 
2140 
2150 
2160 
2170 
2180 
2190 
A200 
2210 
ARDO 


22350 
2240 
2250 
2260 
2270 
2280 
2290 
2300 
FOOO 
3010 


FOFO 
2040 
En eTnTe) 
4010 
AU2O 
4030 
AUD40 
A050 


IF XP-= '- 1 THEN XP = 
IF YP = Y THEN YF = © 
IF YP + 1 THEN YP = 
GOTO 380 
TEXT : HOME 
INVERSE 
VTAB 8: HTAB 10: FRINT "ICH RECHNE I" 
NORMAL 
GOSUB 2000 
HOME 
VTAB 12: INPUT "NAME IHRES SPRITES : "3N% 
PRINT CHR$ (4) 3 "BSAVE "Ns; ",A"SSHS",L"}SC — SH 
VTAB 20: HTAB 10: PRINT "MACH’ S GUT !" 
END 
IF AS(XP,YP) = "1" THEN DRAW 1 AT FNACX) + 7% XP + 2, FN B(Y) + 
TXYP+2 
IF A$(XP,YP) = "Oö" OR S = 1 THEN XDRAW 2 AT FNA(X) +7 X XA + 2, FN 
BIV + YF%X7+2 
IF S = 2 AND A$(XP,YP) = "1" THEN XDRAW 1 AT FNAXD +7 X XP + 2, 
FN B(Y) +YP X 7 +2 
$S=0 
RETURN 
VTAB 15: HTAB 12: PRINT "1. BIT POSITION" 
FOR Z=0T0VY-1 
FOR I =0TOX-1 
E$(1,2) = B$(1,2) + A$(1,2) 
NEXT I 
PRINT 
NEXT Z 
FOR I=0MY-1 
IF LEN (B&(1,DD) - C INT CLEN (BSA,ÄDI /DIXK7& > 0 THEN Bsci 
„D = B$(1,D) + "O0": GOTO 2080 
NEXT I 
FR I=00Y-1 
EB$ (1,1) = .E$(1,1) + "0000000" 
NEXT I 
FÜR I=0 Y-1 
FOR Z 6 
Bs(Z + "oO" + B$(Z,D 
BS(Z + 1, LEFT$ (B$(Z + 1,D, LEN (B$(Z,D))) 
NEXT Z 
NEXT I 
= INT CLEN (B#A,1)) 7 9 
FOR I = 1 T0 7 
FOKE SC,B: FÜKE SC + 1,Y 
FOKE SL, INT ((SC - SH) / 256)): POKE SL + 1, (SC - SH) - C INT tisc 
= 84) / 256)) X 256:8L. = SL + 2 
SC = Sc +2 
VTAB 15: HTAB 12: PRINT I 
FORZ=0 T0Y-1 
Xx$ = B$(1,2): GOSUB 3000 
NEXT Z 
PRINT 
NEXT I 
RETURN 
FOR T=0T0 (LEN XS) XD -1 
XSCT) = MIDS (XS,IT KDD +1,(T+ I KM 
E$ = X$(T): GOSUB 4000 
NEXT T 
RETURN 
FOR W = 0 TO & 
E=E+ (VAL < 
NEXT W 
FOKE SC,E:SC = SC +1 
E=0 
RETURN 


MID$ (E$,W + 1,0) X 2 W 





Panzerjagd 


für den Apple II 


APPLE II 


Als Richtschütze einer Panzer-Abwehrraketenstellung ist es Ihre Aufgabe, plötzlich 
auftauchende feindliche Panzer zu vernichten. 
Ein prima Spiel, um Ihr Reaktionsvermögen zu testen. Denn so schnell wiedie Panzer 
!auftauchen, ebenso schnell sind sie auch verschwunden. In diesem Zeitraum von 
wenigen Sekunden gilt es, wachsam zu sein, und den Joystick fest im Griff zu haben. 
Jeder verfehlte Schuß stellt für Sie ein Risiko dar und kostet wertvolle Munition, die 


begrenzt ist. 


Jeder abgeschossene Panzer bedeutet 
eine weitere Schwierigkeit, da die 
nachrückenden hinter den Trümmern 
des getroffenen, nicht mehr so schnell 
bemerkt werden können. 

Hat der feindliche Richtschütze Ihre 
Stellung bis jetzt noch nicht aus- 
machen können, so verraten Sie sich 
nun durch den Abschußblitz Ihrer 
Rakete. 





| Dezember 1983 


Mit jedem weiteren Schuß fällt es dem 
Gegner leichter, auch einen gezielten 
Treffer bei Ihnen zu landen. Dies 
bedeutet jedoch für Sie, die Aufgabe 
Ihrer Stellung und somit das "Aus". 
Anmerkung zum Listing: 

Die Zeilen 15 - 180 definieren nur die 
Variablen und sollen beim Schreiben 
des Programmes zum besseren Ver- 
ständnis beitragen, sowie eine eventu- 











elle Fehlersuche vereinfachen. 
Das Spiel wird mit Joystick gespielt. 
Soll das Spiel mit Paddles gespielt 
werden, so empfiehlt es sich, die Werte 
für "PLV” in den Zeilen 1820-1840 zu 
vergrößern. In den Zeilen 2360-2370 
werden die Datas für die Sondroutine 
eingePOKEd, sowie in den Zeilen 
2390-2480 die Shapes. 
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VARIABLEN --- 


VT=VTAR 

TT=TITEL 
TR=TREFFER 
TI=ZEIT 
TJ=TITEL-SCHLEIFE 
FZ=FANZER 
ZS=ZAEHL-SCHLEIFE 


_ DF=DRAW PANZER 


REM 


REM % 


REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 


GOT 


REM 


ZW.F 


DT=DATAS 

FO=FOKEN 
LV=SCHWIERIGKEITSGRAD 
MM=HPLOT-SCHLEIFE 
PLV=INIT LV IM PROGR. 
FS1=FANZER SCHIESST 
FPTi=FANZER TRIFFT 
AN$=WEITER IM PROGRAMM 
MUN=MUNITION 
FAU=FAUSESCHLEIFE 
A$+B$=RAHMEN FUER TITEL 
X1+X2=KOORDINATEN FANZER 
X2+Y2=KOORDINATEN OFTIE 
X3+Y3=KOORDINATEN, WENN 
SHO+GER=GERAUESCHE 
DRAW1=SHAFE PANZER 
DRAWZ=SHAPE OPTIK 
DRAWS-8=SHAFES EXFLOSION 
SSO=ERGAENZT SHO 


FROGRAMM $$%$ 


OK KK KK KK kakk 
PANZERJAGD 


COPYRIGHTS 


x 
x 
x 
x 
% 
* 
* 

MIKE BIEDENBAENDER % 

x 

x 


% 
x 
* 
* 
* By 
x 
* 
* 
KK kaakakakck 


0 2350: REM FOKE DATAS 


RINT-ROUT.=== 


FANZER TRIFFT 











x2 = PDL (0) *% 1.06:Y2 FDL (1) / 1.6 
IF Y2 & 80 THEN Y2 = 80 

DRAW Z AT X2,Y2: XDRAW 2 AT X2, 

DRAW 1 AT X1,Y1 

RETURN 

REM 


SCHUSS ROUT.=== 


FOR SHUO = 28 TOD 76 STEF 4: FOKE 768,SH0: FOKE 769,4: CALL 7 
70: NEXT SHO 

HPLOT 140,160 TO X2,Y2: HFLOT 141,160 TO X2,Y2 
HCOLOR= 0 

HFLOT 140,160 TO X2,Y2: HFLOT 141,160 TO X2,Y2 
HCOLOR= 3 

DRAW 4 AT X2,Y2: GOSUR 22640: XDRAW 4 AT X2,Y2 
DRAW 5 AT X2,Y2: GOSUR 2260: XDRAW 5 AT X2,Y2 
MUN = MUN — 1 

IF X2 = X1 - 4 AND X2 << X1 + 4 AND Y2 > Yi - 

4 THEN 510 

IF MUN = O© THEN TEXT : GOTO 1280 

RETURN 

REM 


SHAFES BEI TREFFER = 


DRAW 1 AT X1,Yi 

GOSUR 2290 

DRAW 3 AT X1,Y1 + Ss GOSUR 2250: XDRAW IS AT X1,Y1 + 3 

DRAW 4 AT X1,Yi1: DRAW 4 AT X1,Y1 — 3: XDRAW 4 AT X1,Yi 

DRAW 4 AT X1,Y1 + 3: GOSUB 2260: XDRAW 4 AT X1,Y1 + 3 

DRAW 4 AT X1,Y1 - 5: DRAW 4 AT X1,Y1 - & 

DRAW 5 AT X1,Y1 + I: GOSUR 2260: XDRAW AT X1,Y1 + 

XDRAW 4 AT X1,Y1 » XDRAW 4 AT X1,Y1 3: XDRAW AT X1,Y 

1 - 52 XDRAW 1 AT ‚Yi 

DRAW 3 AT X1,Y1 - GOSUR 2260: XDRAW AT Xı,Yı1 7 

DRAW AT X1,Y1 + GOSUR 2260: XDRAW AT X1,Y1 3 

DRAW AT X2,Y2 - GOSUR 2260: XDRAW SI AT X1,Y1 8 

DRAW AT Xi,Yi GÜSUR 2270: XDRAW 7 AT Xı,Yi 3 
s 


er 
* 


DRAW AT X1,Y1 GOSUR 2270: XDRAW AT Xı,Y1 
FOR GER = 200 STEF 1: FOKE 768,GER: FOKE 769, 
779: NEXT GER 
PZ = PZ - 1:TR 1 

HCOLOR= 0: DRAW DP,180:DF 12: HCOLOR= 3 
GOTO 850 


PANZER 


REM SCHIESST ZURUECK 





720 DRAW S AT X1,Y1 

730 FOR SHO = 640 TO 100 STEP 5: 768,5H0: FOKE 769,3: CALL 
770: NEXT SHO 

740 XDRAW 3 AT X1,VY1 

750 DRAW 4 AT Xi1,Yi 

760 HPLOT X1,Y1 TOD X3,YS: HCOLOR= 0: HPLOT X1,Y1 TO X3,YS: HCOLOR= 
= 


- 
7790 XDRAW 4 AT X1,Yi 
780 DRAW 5 AT X1,Yi: GOSUR 2280: XDRAW 5 AT X1,Y1 
790 XDRAW 1 AT X1,Yil: DRAW 1 AT X1,Y1 
800 DRAW 1 AT X1,Y1 
810 FPTi1 = PTi +1 
820 IF FTi > 10 THEN 1110 
830 RETURN 
840 REM 


==NEUE KOORDINATEN== 


INT £ RND (1) x 260): IF X1 <& 15 THEN 720 
INT £ RND (1) % 130): IF Yi <& 85 THEN 840 
INT € RND (1) % 12) 

INT £ RND (1) * 12) 


ZWISCHEN-ROUT. === 


IF PZ= 0 THEN TEXT : GOTO 1290 

IF MUN = © THEN TEXT : GOTO 1280 
Pi = INT CRND (1) *% 180): IF Pi < 50 THEN 920 
FOR FAU = 1 TO Pi 

x2 = PDL (0) % 1.06:Y2 = PDL (1)./ 1.6 

IF Y2 < 80 THEN YZ2 = 80 

IF PEEK ( - 16287) > 127 THEN GOSUR 390 

DRAW 2 AT X2,Y2: XDRAW 2 AT X2,Y2 

NEXT FAU 

REM 


SPIEL ===== 


1000 78 Oo 
1010 X2 FDL (0) & 1.06:Y2 = FDL (1) / 1.6 


FR} 

1020 IF Y2 < 80 THEN Y2 = e 

1030 DRAW 2 AT X2,Y2: XDRAW 2 AT X2,Y2 

1040 IF PEEK ( -— 16287) > 127 THEN GOSUR 390: GOSUR 720 
1050 IF Z5 = (FLV / D AND FSi > 3 THEN GOSUR 720 

1060 GOSUR F30:725 = ZS + 1: DRAW 1 AT X1,Y1 

1070 IF ZS «< FLV THEN 1010 

1080 XDRAW 1 AT X1,.Y1 





1090 GOTO 840 
1100 REM 


FANZER TRIFFT === 


GOTO 1140 

1120 DRAW 1 AT X1,Y1 

11350 FOR SHO = 28 TO 7& STEF 4: FOKE 768,5H0: FOKE 769,4: CALL 
770: NEXT SHO: RETURN 

1140  DRAW-4 AT X3,Y3: DRAW S AT X3,Y3: GOSUR 1130: DRAW & AT X3 
»YSs DRAW 7 AT X3,YS2 DRAW 8 AT X3,Y3: GOSUR 1130 

1150 HPLOT 130,90 TO 132,0: GOSUR 1130: DRAW & AT 120,120: DRAW 
7 AT 200,120 

1160 HFLOT 1530,90 TO 279,80: GOSUR 1130: DRAW 4 AT 180,20 

1170 HFLOT 130,90 TO 279,100: GOSUR 1130: DRAW & AT 270,100 

1180 HFLOT X3,Y3 TO 0,0: GOSUB 1130: DRAW 5 AT 5,5 

1190 HPLOT X3,YS TO 30,180: GOSUR 1130: DRAW 8 AT 30,100 

1200  HPLOT X5,YS TO 140,180: GOSUR 1150: DRAW 4 AT 130,180 

1210 HPLOT X3,Y3 TO 260,0: GOSUR 1130: DRAW 4 AT 240,0 

1220 HFLOT X3,YS3 TO 240,180: GOSUB 1130: DRAW 7 AT 240,150 

1250 HPLOT X3,Y3 TO 0,80: GOSUR 1130: DRAW 7 AT 10,80 

1240 GOSUR 2320 

1250 REM 


=== ERGEBNISSE === 


1260 TEXT 

1270 INVERSE : VTAB 8: HTARB 4: FRINT "LEIDER WAR IHR GEGNER ETW 
AS SCHNELLER": GOTO 1300 

1280 INVERSE : VTARB 8: HTAB &: PRINT "LEIDER IST DIE MUNITION A 
LLE": G0TO 1300 

1290 FLASH : VTARB 8: HTAR 64: PRINT "SIE HABEN ALLE FANZER VERNI 
CHTET" 

1300 NORMAL : VTAR 14 

1310 HTAB 10: PRINT "SIE HATTEN "}TR}" TREFFER" 

1320 VTAB 16: HTAB 7: PRINT "DAS WAR SCHWIERIGKEITSGRAD ı "31V 

1330 VTAR 19: HTAR S: PRINT "MOECHTEN SIE NOCH EIN SPIEL (J/N) 
? "32 GET AN$ 

1340 IF AN$ = "J" THEN CALL - 936: GOTO 1780 

1350 VTAR 23: HTAB 2: PRINT "ICH HOFFE ES HAT SPASS GEMACHT, TSC 
HUESS": GOSUB 2340: CALL - 936 

END ı REM 


REM 


MACHE TITEL === 


1380  CALL —- 956 

1200 a" 

1400 Bs = "# #" 

1410 PRINT A$: FOR TT = 1 TO 20: FRINT EB$: NEXT : PRINT A$ 
1420 SPEED= 120: INVERSE 

1430 FOR TJ = 1 7T0 2 





1440 VTAR 6: HTAR 15: FRINT "PANZER-JAGD" 

1450  VTAR 8: HTARB 17: FRINT "CREATET" 

1460 VTAR 10: HTAR 19: PRINT "BY" 

1470 VTAR 14: HTAR 10: FRINT " MIKE BIEDENBAENDER " 

1480 VTAR 15: HTAR 10: FRINT " #109 MUEHLTAL 4 " 

1490 VTAR 16: HTAB 10: FRINT "TRAISA BEI DARMSTADT" 

1500  VTAR 17: HTAR 10: PRINT " LUDWIGSTR. 125 " 

1510 FOR GER = 100 TO 50 STEFP - 5: FOKE 768,GER: FOKE 769,30: CALL 
770: NEXT GER 

1520 NORMAL : NEXT TJ 

1530 GOSUR 2310 

1540 ‚SFEED= 180 

1550 VTAR .&6: FRINT B$: VTAR 8: FRINT B$: VTAR 10: HTAR 19: FRINT 
"3 VTAR 14: FRINT B$: VTAR 15: PRINT B$: VTAR 16: FRINT 
B$: VTAR 17: FRINT B$ 

1560 SPEED= 255 

1570 FOR 550 = 4 TO 10 

1580 FOR SHO = 50 TO 100 STEF 5: FOKE 768,5H0: FOKE 769,580: CALL 
770: NEXT SHO 

1590 NEXT SSO 

1600 SPEED= 255 

1610 VTAR 10: HTAR 4: FRINT "MOESHTEN SIE ANWEISUNGEN (J/N) 7" 
a2 GET AN$ 

1620 CALL - 936 

1630 IF AN$ = "J" THEN CALL - 956: GOTO 1640 

1640 IF AN$ = "N" THEN CALL - 936: GOTO 1780 

1650  GOTO 1610 

1660 REM 


=== ANWEISUNGEN === 


PRINT "SIE SIND RICHTSCHUETZE IN EINER FANZER-. ABWEHRRAKET 
ENSTELLUNG" 


PRINT "IHRE AUFGABE BESTEHT DARIN,PLOETZLICH AUFTAUCHEND 
E FEINDPANZER ZU VERNICHTEN" 

FRINT » PRINT "REAGIEREN SIE DANN SCHNELL UND SICHER, DEN 
N SO SCHNELL WIE DIE FANZER AUF- TAUCHEN SO SCHNELL WER 
DEN SIE AUCH WIEDER VERSCHWINDEN" 

PRINT "SCHIESSEN SIE GEZIELT. JEDER,VERFEHLTE SCHUSS IST 
EIN RISIKO UND KOSTET MUNI- TION,DIE BEGRENZT IST" 

FRINT = FRINT "JEDER ABGESCHOSSENE PANZER BEDEUTET EINE ZU 
SAETZLICHE SCHWIERIGKEIT,DA DIE ANDEREN FANZER HINTER 
DEN RESTEN NICHT MEHR SO SCHNELL BEMERKT WERDEN" 

FRINT : FRINT "SIE KOENNEN DIESE SACHE ZWAR MIT DER zIE 
LOPTIK BEREININGEN, WAS JEDOCH ZU LASTEN IHRER AUFMERKSA 
MKEIT GEHT" 

VTAB 23: FRINT "TIFPEN SIE EINE TASTE....";: GET AN$: CALL 

- 936 

FRINT =: FRINT "HAT SIE DER FEINDLICHE RICHTSCHUETZE NOC 
H NICHT ERKANNT,SO VERRATEN SIE SICH DURCH DEN ARBSCHUSSELIT 
Z IHRER RAKETE" 

FRINT : FRINT "MIT JEDEM WEITEREN SCHUSS VON IHNEN FRE 
LLT ES DEM GEGNER LEICHTER IHRE STEL-LUNG ZU ERKENNEN UND S 
OMIT AUCH ZU TREFFEN" 

FRINT : FRINT "EIN TREFFER IN IHRER STELLUNG BEDEUTET IHR 

»AUSE" 

VTAR 25: FRINT "TIFFEN SIE EINE TASTE....";: GET AN$: CALL 

- 956 

REM 





INIT LV F. PROGRAMM = 


PRINT "SCHWIERIGEEITSGRAD {(1/2/3/4/59) 7? "z:2 GET LV 
IFLV >» 5 0ORLV «1 THEN VTAR 1: HTAR 1: GOTO 1790 
VTAR 1: HTAR 32: FLASH » FRINT LV3: NORMAL = "FRINT 3" 


INVERSE : FRINT ; "OR" 

IF LV = 1 THEN FLV S9:FZ = 5:MUN oO 

IF LV = 2 THEN PLV 30:PZ = 8:MUN 5 

IF LV = 3 THEN FLV 21:PZ 10:MUN = 22 

IFW = 4 THEN PLV = 12:PZ 12:MUN = 18 

IF LV = 5 THEN FPLV &6:FZ 14:MUN = 16 
TR = O:PS1 = O:PTi = O:X3 = 130:YI = 9ıDP = 25 
GOSUR 2310 

REM 


VTAR 6: HTAB 11 

FRINT "DER KAMPF BEGINNT" 

TI = 91T =8 
1930 FOR CO1 = 9 TO © STEF '- 13 VTAR VT: HTAR 19: FRINT CO1:VT 

= VT + 1: NEXT CO1 
1940 VT = 8 
1950 FOR GER = 80 TO 98 STEP 2 
1960 ° INVERSE 
1970 VTAR VT: HTAR 19: PRINT TI 
1980 POKE 768,GER: FOKE 769,50: CALL 770 
1990 NORMAL 
2000 VTAR VT: HTARB 19: FRINT TI 
2010 TI = TI - 1:VT = VT + 1: FOR PAU = 1 TO 200: NEXT PAU 
2020 NORMAL 
2030 NEXT GER 
2040. NORMAL 
2050 POKE 768,255: FOKE 769,255: CALL 770 
2060 CALL - 936 

GOSUR 2300 

REM 


HINTERGRUND === 


POKE 232,0: POKE 233,112 
HGR2 : SCALE= 1: ROT= 0 
HCOLOR= 3 
HPLOT 0,40 TO 50,10: HPLOT 50,10 TO 100,30 
HPLOT 80,50 TO 110,20: HPLOT 110,20 TO 150,50 
HPLOT 128,30 TO 180,10: HPLOT 180,10 TO 220,30 
HPLOT 200,60 TO 230,20: HPLOT 230,20 TO 279,60 
HPLOT 0,65 TO 279,65 
FOR MM = 172 TO 191: HPLOT 0,MM TO 279,MM: NEXT MM 
HCOLOR= 0 
HPLOT 10,174 TO 10,187: HPLOT 11,174 TO 11,187: HPLOT 12,1 
74 TO 12,187 
2200 HPLOT 7,177 TO 15,177: HPLOT 7,178 TO 15,178: HPLOT 7,179 TO 
15,179 
2210 HCOLOR= 3 





220 
230 
240 


2300 
2310 
2320 
2330 
2340 


2350 


GOTO 840 
GOSUR ?240: RETURN 
REM 


SCHLEIFEN 


FOR FAU 
FOR FAU 
FOR FAU 
FOR FAU 
FOR FAU 
FOR FAU 
FOR FAU 
FOR FAU 
GOSUR 2 
FOR FAU 
REM 


TO 60: NEXT : RETURN 
TO 100: NEXT : RETURN 
TO 150: NEXT : RETURN 
TO 200: NEXT =: RETURN 
E 
3 


mon 


De 


TO 300: NEXT RETURN 

TO 500: NEXT RETURN 

TO 1000: NEXT : RETURN 
TO 4000: NEXT = RETURN 
RETURN 

TO 3000: NEXT : RETURN 


[6] 


A 


A u ri 


DATAS FOKEN === 


2370 


2380 


23970 


2400 


2410 


2420 


FOR FO = 770 TO 790: READ DT: FOKE FO,DT: NEXT FO 

DATA 173,48,192, 136, 208,5, 206, 1,3,240, 9,202, 208, 245,174,0, 
3,76,2,3,96 

REM 


FOR FO = 28672 TO 29022: READ DS: FOKE PO,DS: NEXT PO 

DATA 8,0,32,0,59,0,73,0,84,0, 112,0, 157,0,227,0,26,1,0,0,0, 
0,0,0,0,0,0,0,0,0 

DATA 0,0,36,53,46, 45,36, 60,63,63,63,54,13,58,63,54,54,45,3 
6,52,41,45,12,54,46,37,36,60,0,41,61,3,32,24,54,63,19,45,54 
‚10,36,37,0,44,54 

DATA 57,59,32,4,8,46,53,5,0,44,54,57,59,32,4,8,46,53,37,28 
‚39,63,50,55,14,46,42,44,42,60,40,53,28,27,18,34,0,56, 36,63 
‚42,54,21,53,46 

DATA 32,37,39,33,37,63,7,40,37,59,27,56,23,23,36,21,18,18, 
51,53,13,18,45,9,41,36,33,33,39,4,24,32,39,28,59,7,0,24,8,2 
3,63,62,54,53,53 

DATA 53,45,37,45,60,44,44,60,39,39,60,63,62,63,43,40,40,5 
6,55,13,1,24,8,40,44,42,46,17,42,62,53,37,17,41,50,27,46,53 
‚55, 63,46, 55, 23,59, 31 

DATA 59,63,24,63,36,28,36,33,9,9,10,45,23,53,55,7,0,9,33,6 
0,24,8,39, 55,63, 27,50,54,39,27,51,14,17,50,45,9,40,21,45,42 
‚5, 24,8,36,9 

DATA 49,54,33,44,4,8,36,24,8,59,28,19,59,44,24,8,27,39,28, 
56,18,27,55,62,4,32,0,24,8,24,8,40,5,24,8,41,22,41,9,9,50,1 
7,18,30,2% 

DATA 17,23,23,31,19,59,27,7,24,28,31,27,7,24,24,8,12,1,24, 
8,24,8,24,8,5,40,21,18,26,18,46,10,9,10,17,10,33, 24,8, 32,33 
‚0,33,9,9,10,45,23,53,55,7,0 

GOTO 1370 

REM 
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»Grand - Prix” 


für den Dragon 32 


Beim Spiel Grand-Prix können Sie Ihr Talent als Autofahrer auf einer Rennstrecke, 
unter Beweis stellen. Hier kommt es darauf an, so wie bei jedem Autorennen, in 
möglichst kurzer Zeit an das Ziel zu gelangen. 


Die Palette der eingebauten Schwierig- 
keitsstufen im Spiel, wir von "Kin- 
derleicht” bis "Profi". Man hat also 
noch Gelegenheit zum Üben, bevor es 
dann für die Mutigen hart aufhartgeht. 
Mehrere Spieler können mitmachen 
und sich in die Gewinnanwärterliste 


eintragen. Das Rennen selbst, muß 
allerdings jeder für sich allein durch- 
stehen. 

Um die Siegerlorbeeren in Empfang 
nehmen zu können, muß man unbe- 
dingt alle 3 Streckenposten am Rand 
der Fahrbahn, passiert haben. 


Am Ende des Spieles wird die erreichte 
Punktzahl, Punktzahl in Prozent, und 

die erreichten Streckenposten ange- 
geben. 

Die Steuerung, ebenso das Gasgeben 

und Bremsen, erfolgt mit dem rechten 

Joystick. 


DATA 142,4,8,.236,132, 136.64, 200, 64,237,129,148,6,0,37,243.57 
CLEAR 290.32733:FORA=32751 TO 32767:READ AA:POKE A,AA:NEXT 
DATA 142,5,224,16,142,6.8,236,131,237,163,148,4,8,34,247,57 


FORA=32734 TO 32750:RERD AR:POKE A,AA:NEXT 


CLS:PRINT TABC9);STRINGSC 12,153) 


PRINT TABC9);CHRSC 153 +" GRAND" 5 +CHRSC 153 )+" PRIX" +CHRSC 153) 


8 PRINT TABC9),STRINGSC12,153) 
180 PRINT"BENUTZE DEN RECHTEN JOYSTICK 
GNEHMEN I " 


ZUM STEUERN UND GAS GEBEN BZW 


GAS WE 


118 PRINT"BIST DU ZU LANGSAM, BEKOMMST DU EINE WARNUNG I " 
128 FORA=1T02:PLAY"T2L3ALIABOZCLIO1BAGABL3EP4" : NEXT 


138 PRINT" 
149 A$=INKEY$:IF AS=" "THEN16B 


PRESS THE SPACEBAR" :SCREEN 8,1 


158 IFCPEEK( 65280 )>=2540RPEEK( 65288 )=126 >THEN159 ELSE149 
168 CLSB:PRINT®3., "GRAND" ;CHRS$C 1289; "PRIX"; :PRINT®32, "ERREICHE DIE 3 STRECKENPOST 








EM 1® 
178 PRIHTE3Z. "DEINEN SCORE GIET ES AM ENDE bEIHES REHHENS-- 
IH BER SPRACHE DER RENNFAHRER" 
175 FRINT"### DRUECKE SPACE #HH" 
158 AS&=IHKEYS:IF A$=" "THEN2B8 
139 IFCPEEK( 65238 )=254 OR PEEK(65250)=125>THEN ZB0 ELSEI2G 
285 "SPIELSTAERKE 7 
218 CLS4:PRINTB197."SKILL LEVEL 8 TO 7"; :PRINTBZ3Z, "HARD TO EASY"; :SCREEN 9.1, 
220 A$S=IHKEYS:IF A$=""THEN 226 ELSE YA=YALSASS: IF YAT THEN 228 ELSE Sk=YA+s 
D=2: A=0: B4=169: DL=3968 : TIMER=9: RH=55 
RDS=CHRSE 143343 TRINGSE SH, 128 9+CHRSE 143) 
FIS=5TRINGSt SK, 153) 
CH=CHRSE 1319: DES=CHREE 1431123 


EL3 

FÜRS=1 TO 416 STEP 32 
PRIHTBS.RD&; :NEATS 
FRINTR252,FIS; 


A=A+lRNDE 33-2) 

PRINTES.""; 

IFA{B THEN A=d 

IFA>16 THEN A=16 

PRIHT TABCA>;RDE 

IF RHL« 1BBD>REH THEH PRINTRA+CRNDESE 5, CHRSC ENDE SE DELS+L2T 
POKE 1219+P0,93 

H=1213+FP0D 

Y=N-32 

M=H+32 

IF PEEKCWIK5128 AND FEEKCWIELSE THEN FLAT"OIV3ITELIGGLEE-AAGGEFG" :CLS:GOTOT 


IF. PEEK«W5=153 THEN PLAY"O2Y21TSLEGAAFENSCDZGAGENLLOSC"  GOTOSTE 
PLAY" T2SSL235C" 
IFB<24 THEH DL=JDWSTEL 15 
FO=FO+« ( JOYSTECON-30 97203 
IFDL>45 THEH E=B+1:EW=BW-3: IFE=>20 THEN FRIHTRESHR, CH: PLAY" TESSL233BAG": IF EB 
THEHPRINTR435, "BRAKE FAIL";:FORZ=1 TO BR: NEHT 
IF TIMER>=2859 THEN PRIHTR4SA,"LAP"S:FORDI= 1 TO. 190: NEXT: SOUNDES. 1: RH=RN-5: 
TIMER= 8: LAF=LAP+1:IF LAF=3 THEN GOSUEESO 
FORDE=1 TOD DL#35:NEXT 
Ssc=Sc+1 
POKEN.128 
POKEM, 122 
EXEL 32734 
GOTN 338 
FÜRA=1 TOD 5 
E#ER 32571:5CREENB.1:NEAT 
PLAY"OLTAV3LLIGGLFGGLAB-AAGGFEG" 
ELS 
PRIHTBZBZ. "GAME OVER 7": PRINTR2ES. "FRESS SPALEEAR FOR ANOTHER 60": SCREEN, 
FÖRA=1 TO 2388 
AS=IHEEYS:IF As=""THEH NEAT 
IFAS=CHRSC 32 THEN GOTOZ1M ELSE IFAse"t"THENCLS: END 
EHEL 232751:G0T0518 
PRIHTRA.""S:FRINTTABEA+1 5: FIS; 
3 RETURH 
CLS 
FORA=35 TD 228 STEF 32 
PRIHTEA,FISS:HEHT 
3 FRIHTBZ2E2.'"CONGEATULATIONS !" 
Ba 328. "YOLUR SCORE ERAKES WERE" :ENG"Z" FRINT" ol SCORED "; INTCLAF+1+HSCH 
r2a PRIMT" ol COMPLETER"SLAPS IF LAF=1 THEH PRINT"LAP"ELSERRINT"LARS" 
738 GOTO 56658 
748 CSAWE"RACIHG" 
"58 CLS:RUH 





Amöbe 


für den Dragon 32 


In diesem schnellen Spiel geht es darum, Amöben, die unter einem Mikroskop zu sehen 
sind, mit einem Laserstrahl unschädlich zu machen! 

Da man eine begrenzte Anzahl von Schüssen zur Verfügung hat, heißt es schnell 
reagieren, um so viel Punkte wie nur möglich zu erreichen. Gespielt wird über den 
rechten Joystick! 


18 FRIHT" Bo" ## et" # HH 
Boat." j.2.& 2.206. ZUE  ZEE Ze ZU Ze 22 "ien, 5 # # # BHOHHO HH." #_ ## 
Eu 53 SE 35 200 22 20 

2A PRINT:PRIHT" EIN SFIEL WON ulrich theis." 
260 FRIHT"SIE MUESSEN VERSUCHEN. WIELE AMOEBEH UHTER EIHEM MIEROSKOF MIT EIN 
EM LASERSTERAHL ZU TOETEN. JEDE BER 26 AMDEBEN I3T HUR EINEKURZE ZEIT AUF DEM BILD 
SCHIRM." i 
43 PRIHT"SIE HABEN HUR EINE BEGREHZTE AH-ZAHL WON SCHUESSEH. " 
5a FLAY"TSWASDZLAGOSLECL4DL4. ELSFLAIDLECLADL4. ELSFLADLECLIDEFGGOFEOCLEGLAGAENIENS 
L4.BLESALAGLSAGFELLSLZCOZLIGNELEGLAFLEZELIDLZGLAFEFGOL4. DLECLEC" 
EA H=256:G=d:K=B 
ra PMODE 4.1:SCREEH 1.1:FELS 
sa FOR I=2 1 H:PSETEI,23:NEAT I 

J=d:K=K+1:C=36+RNbK 185: B=1O0+RNDC 3 

GOSUB 288° 

IF H=<5 THEN 458 

IF K=21 THEN 458 

3 A=OYSTECBD 

PSET«AK4,1859 

LINE“. 8, 1339-1 256,189. FRESET 

IF FEEK 65288 )=126 OR PEEK6552905=254 THEN LINE ARM, 1SPD-CAK4,C-1,FSET ELSE 


FLAY"W31TZBRDSCH 
LINE“ AK4, 133 3-0 A4, 0-19, FRESET 
FRESET CH.2>3:H=H-2 
IF A*4=B OR Atd=E+l OR At4=B-1 THEN 218 ELSE 275 
G=G+1:.J=8 
PRESET“ B.CD:FRESETEB+1.C: FRESETCE+2,C-1 5: FRESETCE-1. 
FORF=1T03953TEP19: CIRCLECE.CHF 
CIRCLECB.C9.F,O 
PLAY" TISSY3BDLECHDOHEEHFFAFHFEHECHDCRL" :NERT 
GOTO 38 
GOTO 188 
FRESET £B,C> 
PRESETCE+1,C> 
PRESET B+2,C-1> 
PRESETCB-1,C-1> 
IF J=453 THEH 36 
b=RHDE 73-4 E=SRNDE 7 3-4 
E=B+b:l=cöH+E: J=l+1 
IF EX5 THEN B=3 
IF B>259 THEH E=25# 
FLAT" TZSSVZBO4FFAD 
IF C@B THEH C=8 
IF ©3131 THEN C=191 
Bene, 
FSETE E+1. 
28 PSET!E+2 ne 
PSETCEB-1,C-1> 
RETURH 
LL3 8:PRINT"SIE HABEN"G"AMDEBEN GETROFFEN." "IHR BONUS BETRAEGT"H".", 
IHFUT"MOLLEN SIE HOCH EINMAL SPIELEN" SL$ 
IF L&$="J" THEH 68 ELSE CL3:ENO 





SINCLAIR 2X SPECTRUM 





Bogen 


für den ZX-Spectrum 


Das Wochenende steht vor der Tür und auf dem Speiseplan der Familie wird ein 
saftiger Entenbraten angekündigt. Der Sonntagsjäger schnallt sich Pfeil und Bogen um 
und macht sich auf den Weg zur Mutter Natur, mit dem Vorhaben, aber diesmal einen 
möglichst großen Vogel abzuschießen. 


Wenn Sie sich, lieber Leser, schon 
längst einmal als Jäger im Wald u. Feld 
versuchen wollten, so haben Sie hier 
mit dem Spiel "Bogen” für Ihren ZX- 
Spectrum, die beste Gelegenheit. 

Damit das Unternehmen nicht gleich 
beim erstenmal mißglückt, sollten Sie 
den genauen Schußwinkel berechnen 





und die Abschußstärke - ein kleiner Tip 
von uns: Wenn möglich über 60! - 
eingeben. 

Gelingt es Ihnen gleich beim ersten 
Versuch, eine Ente aus den Reihen 
ihrer Artgenossen auf dem Bildschirm 
zu treffen, istdie Freude natürlich groß, 
Sie werden übermütig’und versuchen 


es gleich noch einmal. 

Treffen Sie diesmal jedoch nicht, 
ärgern Sie sich schwarz und gehen 
zähneknirschend nach Hause. 

Im wahrsten Sinne des Wortes schwarz. 
Ein lustiges Spiel mit ansprechender 
Grafik und gutem Sound. 


' 52 Homecomputer 
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9-18954G-B 


5_TBHEN GO Tu ano 
INRUT "Abschuszuinkel (in G 
= . 


u% 
en „ugtrıo” OR wW$>"88'" THEN 


Ler 1er WAL ey} 
PRINT AT_21,8; "Winkel r 
IF a2. AND wıi=508 THEN PRIN 


8, 
IF w>68 THEN PRINT AT 18,1; 
IMPUT "RAbschuszstaerke 


IF_ 25:68 THEN GO _ TO 16088 
PRINT AT 21,15; "Staerke: 


ERZUN AT_18,1; 
--- Ber echnüns 
ir +PrI.iaz 
ax =10#4#C05 w: LET Wy=19#+ 


abx=3b4C05 w: LET aby=a 
“tdi: DIM yid) 
1-2 


S.Ais241#1>5DY41l ri 
Db4 #1 >11 
"5 +IaSISTrAmOl 428: LET 
y3=y#t179, 28308} +24 


GO SUB 2200: [3 
2898 IF yaxi ys>165_THEN 50 
sun s2B2: 60 SUB 3320: Go To 15® 


Sass IF POINT (xa,ya}=1 THEN 50 
oa8 


To 
PLOT INT_x3,INT ys 
SEEr ‚aas,20 
PLOT INVERSE 1;x 14) ‚yt4) 

LET zt4)=#t3) LET Yıd)=y za 


LET xt9} = 23: LET yt3}=yt2 
LET 3 i2I1 su ll: LET yfi2laysı 
LET xX{213=INT xa:r LET yil})s=Z 


5 

LEF_1=13.2 

ia® SG TO 2252 

@@ REN _--- punkte --- 

AS IE 2i-ıuF VyBral=z ij} THEN 

INT AT Z(5j) , INT tent/8); L 

Punktezpünkte+258: 60 Sum 326 

60 SUB 3198: GU TO 1208 

LET _punkte=punkte+INT ya 

5_sUB_ 3180 

RıNT AT BI-INT (yayay, In 
„AT B1-INT_(ya7al#l,ı 

„AT Z1-INT (ya,/8) - 
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2 
2 
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‚’"Du hast 
3: ERBSH 25" vi 
-Fußrdecke eine Taste 


PRUSE @ 

REH Umwandlung US 

FOR i=USR "Er TO DER "ir-a 
Ss: POKE i,s 


2,28,24,24,68, 127,188, 
60,69,24,24,265,,€86,565,1 
136,136,144,16@,192,12 
2,82,128,192,169,248,15 
3,8,128,192,163,252, 18 
1,2,192,280,176, 2128,20 
QA,1402,143,143,126,60,6 
9,112,43,48,125,179,17 


149 489,95 ,35.,98 ,78 241 
ga,aa, 184/122.2/2,1 
Ey 133,132,1580,345,13 


Benennung und Dimension 


z (8) 

Punkte=@ 

Sschusz=B 

=--- Spielfeld ---- 
BORDER 6: PAPER 6: INK 2: © 


8, aeg; Danu 355,0: PLo 
AS: grru 255,0: pLor 3 
DRAU D,150: PL ' ER "BEER a, 


q 
72 BRINT AT 18. 
PRINT AT 12.0, "I 
Ziel - 6 RETURN k 
LET ent=INT (RnDs100+120) 5 en ST A,B, "noch ein S 
hERTo, t7,ster 0 BB IF IHKEYY="" THEH GO TO BL 
PRINT AT_RIINT tentzar;ae deze IM INKEYS="j" THEN co Tu 20 
NEXT nn e ei Seirz IF ISKEYS="n” THEH STOR 
LET j= genoss+a) 50_TO 4B1o 
„ERENT Eur Z;/AT zZ(J)),INT ien sag LS: PRINT AT 108,18; "5r0? 


= 
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Astro Jäger 
für den ZX-81 16K 


Astro Jäger ist ein schnelles Weltraumspiel, in Maschinensprache programmiert. 


Sie befinden sich mit Ihrem Raum- | entkommen und müssen gleichzeitig | Laden des Maschinenprogrammes: 
schiff im unendlichen Weltall und | versuchen, einen Gegentreffer mit der | 9000 For A = 16514 to 16880 
haben den Auftrag, feindliche außer- | einzigen Waffe -einem Laser-überdie | 9010 Input B 

irdische Wesen, die den Lebensraum | Taste”F”wirderstartklargemachtund | 9020 Scroll 

der Menschheit bedrohen und zuerst | mit den Tasten E=hoch,S=links, D | 9030 Print A; ";”; B 

natürlich versuchen Ihr Leben auszu- | = rechts und X = abwärts bewegt. 9040 Scroll 

löschen, zu vernichten. Während dieser aktionsgeladenen 9050 Poke A, B 

Durch geschickte und schnelle Steue- | Kampfhandlung tauchen jedoch im- | 9060 Next A 

rung über die Tasten ”i” = hoch,”"J’= | mer wieder Meteoriten auf, die Ihr | Die Zeilen 9000 - 9060 sind anschlies- 
links, "K” = rechts, ”M”= herunter, | Raumschiff bei einem Zusammenstoß | send zu löschen. 

haben Sie die Chance, dem Gegner zu | sofort zerstören. 
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PRINT 1 RSS RSSERERSSISSADDDD. 


"MEIN LIEBER MANM 2... 


5329 PRINT "SIE SING SGESEN LEBE 
R Dh en GESFRUGEN." 


"FRIEDE IHRER Ascne ," 
u TSTEUNSERIRT ET 


BIIS SEID, us 4er PT 
es2 

Fan sa ra’20 2358 PRrur & 

REENT AT AnD+22,RnDa#30; Bi” RE „NEUES E 
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AnD#3,ARnbsze; 
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IF INK 
Pos pl 
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PR dir 


PRINT OCH=I //r RUNTER 
PRIHT “LINKS=SJ #7 Tr 


PRINT 

PRINT „EREETE STEL ER ” 
PRINT MET En 
PRINT \E BE RUMIER" 
PRINT "Selina 2277 BeRecHTS 


PRINT 

PRINT "LIEL SPAIS." 

PRINT “TRAS ı DRUECKEN" 

IF InkeEv$ THEN DVIU 2047 
IF _INKEYS$ THEN RUN 10 
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SINCLAIR 2X-81 


Snake 


für den ZX-81 16K 


Bei dem Spiel Snake für den ZX-81 16K hat man das ”Vergnügen” in die Haut einer 
Schlange zu schlüpfen und mit der List und Klugheit, die dieser zu eigen ist, ein 
gefahrvolles Labyrinth zu durchwandern, in dem einige Überraschungen und Gefahren 


lauern. 


Die Geschwindigkeit kann bei diesem 
Unternehmen jedoch nicht erhöht wer- 
den, lediglich die Spuren können 
gewechselt werden. Ein Vorteil gegen- 
über dem Monster, daesin dergleichen 


Richtung entgegen kommt und nur 


Dezember 1983 


eine Spur wechseln kann,.dem es gilt 
auszuweichen. 

Die Hauptaufgabe auf dem Weg durch 
das Labyrinth besteht darin, die ausge- 
legten "Hypereier” die der Schlange als 
Nahrungdienen, zu vertilgen. Für jedes 





Ei gibt es einen Punkt, werden nicht 
gleich alle Eier gefressen, muß die 
Schlange wieder zurückgehen und die 
restlichen Eier beseitigen. Auch hierfür 
gibt es Punkte. 

Viel Vergnügen! 
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Pre Des Mi 
LET =-i 


A1=PEEKR 15395 +256 »?EEK 





ÖSA1+INT_ (AND4SSO) 
4>27 


IF PEEK.QO 7 AND PEEK 0+4>1 
GOTO 252 


IF PEEK O=H THEN LET Vı=UL- 


s)1 THeN rerumn 
LET D=-a8 
IF R2=H THEH LET 3=8+1 
IF PEEK (A+C) =i2e THEN GosU 
R,0# (A2=H}! + {A2=U) 
(R+C 
a=0 THEN LET Sı1 
Teen gosus 
EEE en Born ao 3 PRINT "ZEICHEN-ERKLAERUNG 


TS401 =128 THEN WOSU a PRINT TI SEEN LEBER 
SUSORTASTEN! 


sı 5 =: 
$ Be o=o an ınsıe 280 PRINT "£ = MONSTER (VORSICH 


IE 81.50 THEM Ler 0-0 2125 PRINT 
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1 IHEN sOTO 43S a14a RETURN 

1 THEN LET x=30 





Vokabeltraining 


Für den TI-99 4A + Ext. Basic 


Wer wünscht sich nicht, perfect eine fremde Sprache zu beherrschen oder zumindest, 
sich einigermaßen in unseren Nachbarländern verständigen zu können. Ja, da könnte 
man wirklich stolz drauf sein. Aber jeder der diesen Versuch schon einmal 
unternommen hat oder gerade dabei ist eine andere Sprache zu erlernen, sei es 
Spanisch, Italienisch, Englisch, Französisch u.s.w., hat wohl sehr schnell gemerkt - 
ohne das konsequente Erlernen von Vokabeln geht es einfach nicht. 


Dies kann man erstens allein ver- 
suchen, macht aber meistens keinen 
allzu großen Spaß. Zweitens: Freunde 
oder Verwandte mit der ehrenvollen 
Aufgabe betrauen, Ihnen die Vokabeln 
abhören zu dürfen, die dann natürlich 
nur darauf warten, Sie verbessern zu 
können (ist ja nur menschlich) und 3. 
Ihren Computer zur Hilfe nehmen - für 
viele wahrscheinlich die interessan- 
teste und ausgefeilteste Lösung. 
Aufjeden Fall wünschen wir Ihnen mit 
dem Programm Vokabeltraining Spaß 
und viel Erfolg! 





Zum Programm: 

Nach Erscheinen des Menues wählt 
man Taste 1,2, 3, 4, oder 5. 

Wollen Sie nun Vokabeln eingeben, 
drücken Sie Taste 1. Der Computer 
erwartet dann Ihre Eingabe von Voka- 
beln und Übersetzungen, jeweils 30. 
Wenn er fertig ist, zeigt er wieder das 
Menue. 

Wollen Sie Vokabeln abfragen, drük- 
ken Sie 2. Geben Sie ein, wie oft Sie 
abgefragt werden möchten. Der Com- 
puter ermittelt per Zufall eine Vokabel, 
die er auf dem Bildschirm anzeigt. 
Geben Sie jetzt die Übersetzung ein! Ist 





die Übersetzung richtig, wird dies 
angezeigt und fortgefahren. Ist sie 
falsch, wird dies ebenfalls angezeigt 
und fortgefahren. Ist die gewünschte 
Anzahl Abfragen erreicht, errechnet 
der Computer, ob Sie mindenstens 5/6 
der Abfragen richtig beantwortet ha- 
ben; wenn ja, wird dies angezeigt und 
zum Menue zurückgegangen, wenn 
nein, müssen Sie mit anderen Voka- 
beln wiederholen. 

Wenn Sie einlesen oder speichern 
wollen, drücken Sie 3 oder 4. 

Der Computer gibt Ihnen dann weitere 
Instruktionen. 








100 REM VOKABELTRAINING 

110 CALL CLEAR 

120 DIM V$(31,2) 

130 DISPLAY AT(3,5) :"VOKABEL 
TRAINING" 

140 DISPLAY AT(6,5):"BITTE W 
AEHLEN SIE:" :::DISPLAY AT(8 
»5):"1 FUER VOK. EINGEBEN" : 
: DISPLAY AT(10,5):"2 FUER V 
OK. ABFRAGEN" 

150 DISPLAY AT(12,5):"3 FUER 
VOK. EINLESEN": :" 4 FUE 
R_VOK. SPEICHERN": :" 5F 
UER BEENDEN": : : : :" IH 
RE WAHL?_" 

160 ACCEPT 2 ‚15)SIZE(-1) 
BEEP VALIDATE ("12345") :WAHL$ 
170 CALL CLEAR 

180 IF WAHL$="_" THEN 130 
190 IF en THEN END 
200 ON VAL(WAHL&)GOSUB 220,3 
10,500,580 

210 GOTO 110 

220 REM VOK. EINGEBEN 

30 DISPLAY AT(3,5):"VOKABEL 
N EINGEBEN": : :" VOKABEL 
" :: DISPLAY AT(14,5):"UEBER 
SETZUNG" 

240 FOR Z=1 TO 30 

250 DISPLAY AT(6,13):2 

” ACCEPT AT(8,5)BEEP:V$ (zZ, 
1 

_270 DISPLAY AT(14,18):Z 

220 ACCEPT AT(16,5)BEEP:V$ (zZ 


f 
290 NEXT Z 

300 RETURN 

310 REM ABFRAGEN 

320 DISPLAY AT(3,5):"VOKABEL 
N ABFRAGEN": : :" VOKABEL 
" :: DISPLAY AT(14,5):"UEBER 
SETZUNG" 

330 RANDOMIZE 

340 DISPLAY AT(24,5) :"ANZAHL 


DER ABFRAGEN" :::ACCEPT-AT(. 


24,25)BEEP VALIDATE (DIGIT) :A 
NZ 


350 DISPLAY AT(24,5):"" :: R 
=0 


360 FOR Z=1 TO ANZ 


370 
380 
390 
$ 


400 


X=INT( 30*RND) +1 
DISPLAY AT(8,5):v$ (X,1) 
ACCEPT AT(16,5)BEEP:EING 


IF EING$=V$ (X,2)THEN 410 


ELSE 420 


410 
g" 


DISPLAY AT(24,5):"RICHTI 


:: FOR ZS=1 TO 999 ı: NEX 


T 25 :: R=R+l :: GOTO 440 


420 
" 
430 
zS 
440 
450 
460 


DISPLAY AT(24,5) :"FALSCH 
FOR ZS=1 TO 999 :: NEXT 
DISPLAY AT(24,5):"" 


NEXT Z 
IF R<5/6*ANZ THEN 470 EL: 


SE 480 


470 


DISPLAY AT(24,5) :"BITTE 


WIEDERHOLEN" :: FOR ZS=1 TO 


999 
480 


i: NEXT ZS :: GOTO 350 
DISPLAY AT(23,5):"SEHR G 


UT:";R;"VON";ANZ;" RICHTI 


g" 


::FOR 25=1 TO 999 :: NEX 


T 2S 


490 
500 
510 


RETURN 
REM EINLESEN 
OPEN Z1:"CS1",INPUT „INT 


ERNAL,FIXED (64) 


520 
530 
540 
550 
560 
570 
580 
590 


FOR Y=1 TO 30 

INPUT Zi a 

INPUT Z1:v$(v,2 

NEXT Y 

CLOSE #1 

RETURN ö 

REM SPEICHERN 

OPEN #1:"CS1",OUTPUT, INT 


ERNAL,FIXED (64) 


600 
610 
620 
630 
640 
650 


FOR Y=1 TO 30 
PRINT #1:V$ eh) 
PRINT #1:v$(y,2 
NEXT Y 

CLOSE #1 

RETURN 


ES 2 02 32 02 12 12 02 02 52 52 1 nn 1 1 1 7 7 


Anmerkung: 
7 ersetzt das Nummernzeichen 





Endlich VG 20 Bundesliga-Programme! 
u.a. Heim./Ausw.-Tab,, Term./Er- 
gebnis, realist. Toto-Tp u. Mei- 
sterprognose. Info: Heinz Reinke, 
Angermunder Straße 113,41 Duisburg 29 


64 @ © Commodore 64 @© @ 64 
Riesenangebot an neuen, inter- 
essanten Spielen wie Zaxxon oder 
Stellar Triumph. Intelligente 
Lern- und Unterrichtsprogramme! 
Liste anfordern: ibi Data 
Mike Reitz, Raderbergstraße 153, 
5000 Köln 51 


.eo...,”,. „„ee.e..o 
© Grafik + Action nur 7,50 DM, z.B. 
® Roulette, Biorythmus, Kniffel ® 
@ Liste (Rückporto) Quint, Lessing 24, @ 
® © © 8411 Lappersdorf @ 


Sie suchen preisgünstige Software 
für Ihren TI 99/4A oder CBM 647? 
Ausführl. Info gg. DM 1,-: Riegert, 
Schloßhofstr. 5, 7324 Rechberghausen 


VC 20 Programme und Erweiterungen 
Liste + Gv.Pgr. gg. Rückp. An M. 
Holzmann, Postfach 401, 4258 Bottrop 





Für MZ 80K/A/700-Besitzer!!! 
Umfangreiche Software anzubieten für 
NK ein komfortables Fibu-Programm 
mit/ohne Mahnwesen und Jahresab- 
schluß Cass./Disk-Versand. Individ. 
Kontenrahmen (JKR, GKR, EKR) möglich 

Anfrage und Bestellung bei 
IBA-SOFT Tel.: 030/3931339, Guinea- 

Straße 28, 1000 Berlin 65 


Lineare Optimierung Lösung von 
Gleichungen mit 1 Unbekannten 
Volk, Lauterburgstr. 12, 863 Coburg 


VC-20 Hot Game, Info 80 Pf. M.Stel- 
ling, Dorfstr. 148, 2126 Adendorf 


V6-64 Software Stets die aktuell- 
sten Programme, Liste gegen 80 Pf 
J. Frieg, Wolbeckstr. 12, 43 Essen 12 


oe v4 ee eo Vo © 

TOP-Programme für den VC-64. Tägl. 

neue Sachen, @ D. Göbel @ Bockmühlen- 

weg 42 @ 400 Essen 1,Tel.0201/624242 
®@ Liste gegen Freiumschlag @ 





® Apple II @ 500 Prog. Disk gegen kl. 
Unkostenbeitrag, Info (Freiumschl.) 
R. Ossig, Tauben 15, 7051 Leutenbach 2 


Verkaufe meine WV6-20-Erweiterung 
„+ 99 Masch. Progr., Tel.: 02563/1445 


® © Commodore © © 
Große Auswahl an Nutzprogrammen (z.B. 
Assembler, Pilot, Basicerw. usw.) 
und Spielprog. (z.B. Frogger, Pac Man 
Kong usw), zu Niedrigstpreisen 
abzugeben! Auch Tausch. Liste gratis! 
M. Fischer, Kohlweg 19, 6101 Messel 

Telefon: 06159/1247 


VC-20 Superpakete @ z.B. Roms 70,-, 
Stephan Straka @ Am Herrengarten 20 B. 
6360 Friedberg, Tel.: 06031/2132. Jetzt 
auch spitze 64-Pgms: 15 Stck. ab 30,- DM 





.eo.e.—.—.— o..”.,.0— 
CBM-64 — Club 
Alle!? Programme vorhanden! 
Anruf: 0208/681542 
und 02101/13329 
.ev...,.—.,.—.0 0.0.0 0..,— 





TI 99/4A-Ext. B. Spiele aus den USA 
10 Arcadespiele 49,- DM, z.B. Crazy Koala, 
Inf. D. Kabs, Nachtigallenweg 50, 2070 
‚Ahrensburg, Tel.: 04102/58472, 18 Uhr 





CBM 64 1. Software 25 Progr. DM 30,- 
(Scheck oder Schein), NN + 5,- DM, Disk 
+ 5,- DM, R. Helwig, Eifelweg 3, 
6460 Gelnhausen 


ZX 81 Verkaufe ZX 81-Software ZX 81 
Auch Tausch!!! Info gegen Rückporto bei 
Jochen Schmidt, Hostrup, 2381 Havetoft 


ZX 81 Großes Angebot an Spielen 
und anderen Programmen. Liste 
gegen Rückporto: Michael Schramm, 
Freiligrathstraße 5, 2300 Kiel 1 





VC-20 Software, 4 Farben auf einer 
Bildschirmpos. hervorragende Darstellung 
von Objekten. Gute Erklärung und 
Hilfsprogr.8K! DM 20,- (inkl. Nachnahme). 
V. Wertich,Binger Str. 245, 6507 Ingelheim 





10 Superspiele für Commodore 64 
Cass. 30,- DM, Disk 40,- DM, Bestellung 
bei Thomas Laborn, Hülsdornweg 1 F 
2 Hamburg 71. Oder Info gegen 80 Pfennig 





TI 99/4A Software-Service TI 99/4A 
Superprogramme aus aller Welt 
Programmkassette (Info gegen Rückporto) 
99 Service, An der Weide 21 
3160 Lehrte, Telefon: 05132/54314 


VE 64 Spitzenprogramme 
Assembler/Maschinenmonitor 
mit Begleitheft Programmierung 
in Assembler 59,-, Disk + 6,- 
von Syntyprofi entwickelt, mit 
Begleitheft 59,-, Disk + 6,- 
Rimkus Interface und Software 
7850 Lörrach, Schönaustraße 2 





Commodore 64 @ ® Spritemaker 24,- 
Zeichenmaker neuen Zeichensatz 
schnell erstellen DM 24, 
HEAD ON! Bringen Sie Ihren 
Wagen sicher ins Ziel? DM 36,- 
Für alle Programme Joystick erf. 
Lieferung auf Kassette, T. Gerloff, 
2000 Hamburg 67, Rittmeisterk. 16 a 


VC-64 Super Geldautomat VE-64 
Super Grafik + Sound, auf Kassette, 
15,- DM im Umschlag an: M. Dinter, 
Mühlenweg 36, 5014 Kerpen-Buir 
02275/6999, oder Info gegen 1,- DM 


Internationle CBM 64 Software 
Größte Auswahl, neueste, beste Progr., 
kleinste Unkosten; Tausch, Verkauf 
@ Info: 2,- DM-Marke: F. Sprenger, 4300 
Essen, Brassertstr. 18, 0201/796559 





©®® YC 64 Supersoftware @@® 
© ® Immer die neuesten Spiele zu @@ 
@® absoluten Sensationspreisen @@ 
@® Sehr umfangreiche Liste mit @@ 
© ® genauen Erkl. der Spiele f.IDM @@ 
©® in Briefm. Bei P. Bet _@® 
Homburgerstraße 35,6365 Rosbach v.d.H. 








VC-20 Tausch/Verkauf Prog. M. Scheib 
Mühlstraße 3, 6749 Lug., ausf. Liste 








Verkaufe und Tausche Software 
für CBM 64/2X 81. 100 % Maschinencode. 
Liste gegen Rückporto bei 
J. Hauf, Postfach 1404, 6102 Pfungstadt 
adt. ZX 81 + 16K auch zu verkaufen! 





© © \C-20 Blitzversand © @© ® 
Programme aller Art auf Kassette 
oder Diskette, sehr gut, sehr billig. 
® Jetzt viele Hundert Programme 
® Einsteigerpakete sehr günstig 
© Weihnachtsaktion vieles Extra 
®@ Kostenfrei Verpackung, Porto, NN 
© Sofort freies Info anfordern 
© H. Wolf, Tangstedter Straße 5, 2080 
® Pinneberg, Telefon: 04101/27293 


TI 99/4A @ Geldautomat @ TI 99/4A 
Super Sound - Grafik 15,- DM @ mit 
Gratisspiel bei M. Valentini 5- DM 
® ® Kerpen-Buir, Lerchenweg 2 @ @ 


VC-20 Software, Infos gegen 1,- DM® 
Sinclair ZX 81, 16K-Memopak, Trafo 
Bücher, neu 200,-, Telefon: 07274/2402 
Th. Magin, Rheinschanze 2, 6728 Germers- 
heim 


0 © © CBM-64Software® © ® 
U} Programme aller Art 

} Info gegen Freiumschlag ® 
© bei U. Wittemann, Postfach 202 @ 
@ © 6670 St. Ingbert-Rohrbach @ @ 


@ TI 99/4A @ Super-3D-Spiele! 
Völlig neue Action-Games! Grafik und 
Sound! Datei! ab 1,- DM, Information 1,- 
C. Wurzer, Grüntenweg 14, 85 Nürnberg 


T1 99/4A Biorythmus, Bruchrechnen, Bun- 

desliga, Spiele und diverse Programme 

preiswertes Info gegen Rückumschlag. 
B. Knedel, Tulpengasse 16, 

3171 Weyhausen,Telefon: 05362/71187 


Tausche und Verkaufe ZX-81 Programme 
von 1,- bis 5,- DM. Auch 3D-Spiele. Dirk 
Spengler, Onstmettinger Weg 19 
7000 Stuttgart 80 





VC-20: 60 Modulprogramme (+ Exbasic, 
etc.) auf Cassette: 35,- DM, Diskette: 40,- 
Programme Liste: Freiumschlag an 
U. WegnerKolberweg 2, 8225 Traunreut 





Verkaufe Software für VE 20, Liste gg. 
1,80 DM in Briefmarken oder 20,- im Brief 
für eine Kassette mit 10 Spielen 


ORIGINAL SOFTWARE WANTED for the‘ 
VE-64, VC-20, Genie and Atari ' 
computers, 25% Royalties paid 

For further information, write 


to. Darkstar, 32 Sovereign i 


Street, Leeds LS 1 4BJ. England ' 


m 
© Neu ZX 81 @ IQ-Test © ZX 81 Neu ® 
® Wie intelligent sind Sie? Ihr @ 
© 7X 81 sagt es Ihnen!! 16K nötig @ 
@ umfangreich! Dazu: !! Leg-Los @ 
® Das Spiel für Denker! oo © 
© Sind Sie besser als Ihr ZX 81? @ 
@ Oder als ein anderer Gegner? ® 
®@ Starkes 13K Progr., beides auf MC @ 
®@ für nur 20,- DM von Edgar Groth @ 
5231 Kroppach, Giesenhausenerstraße 8 


© © © Texasoft bietet an © @© ® 
® Action-Spile auf Kassette @ 
© Für Grundgerät TI 99/4 u. 44 @ 
@ Neuer Hit: Rotor DM 1950 @ 
@ Werbematerial von Texasott ® 
@ @ 8 München 9, Herthastraße 26 @ @ 


na * 


Achtung!! 
VC-20/64 


* Wir haben alles für Ihren Computer! 
* Über 900 Programme schon ab 1.-,2.- 
* und 3.- DM!! (Kein Schund!) 
* Komplette Programmpakete schon ab 
3, 5, 9- und.und..undi 
PGM-Generatoren, Maskengenera- 
toren, Statistik u. Anwenderprogr. 
Arcadespiele, Adventures 
und und und! Fordern Sie heute noch * 
* unseren $uperkatalog an! (Computer * 
* typ angebl) Beacht. Sie unsere Sonder- * 
* werbung! (Gratiskassette) Es lohnt * 
* sich II! Achtung! Ab sofort Oric am * 
* Lager! Erfr. Sie unseren Spitzenpreis! * 
* Auch Software zu sagenhaften Prei * 
* sen!! (Telefon: 02326/83720) * 
* Oder fordern Sie Sonderliste Oric an! * 
= Neu Neu Neu a 
* Spectrum u. TI 99/4A Supersoftwarel! * 
* Über 300 Programme auch für Ihren * 
* Computer! Natürlich supergünstig! * 
* Program. aus allen Bereichen! Spitzen * 
* preise! (Ab -,50, 1,-, 1,90!) Pirepherie * 
* etc.! Programmpakete ab 5,- DM !Z.B.* 
* Mathepack mit 26! Programmen für 6,-! * 
* Das gab es noch niel! Arcadespiele * 
* Adventures etc! Z.B. Katakomben * 
* (Adventure 16 KB Supergraphic) * 
* Nur 1,50 DM! Heute noch Katalog anf.! * 
* (Gratiskassette beachten!) (Bitte unbe * 
* dingt Computertyp angeben!!) GRATIS * 
* GRATIS Achtung!!Sonderaktion 12/83 1* 
* Gratis! Testen Sie unser Angebot !!* 
* Für nur 3,- DM in Briefmarken senden * 
* wir Ihnen unseren aktuellsten Katalog * 
* mit vielen Tips und Tricks und * 
* unsere Gratiskassette! Randvoll mit tol- * 
* len Programmen! Utilitys Anwender * 
* programme, Adventures, Arcade und...* 
e „| Deshalb..Schreihen Sie * 
* heute noch an S + S Soft.J. Schlüter, * 
* Postfach 2045, 4370 Marl! ® 


* (24 Stunden Katalogversandt!) * 
en 


Kur 


* 


Commodore 64 @ ® Spritemaker 24,- 
Zeichenmaker neuen Zeichensatz 
schnell erstellen DM 24,- 
HEAD ON! Bringen Sie Ihren 
Wagen sicher ins Ziel? DM 36,- 
Für alle Programme Joystick erf. 
Lieferung auf Kassette, T. Gerloff, 
2000 Hamburg 67, Rittmeisterk. 16 a 


VC-64 Super Geldautomat VC-64 
Super Grafik + Sound, auf Kassette, 
15,- DM im Umschlag an: M. Dinter, 
Mühlenweg 36, 5014 Kerpen-Buir 
02275/6999, oder Info gegen 1,- DM 


Internationale CBM 64 Software 
Größte Auswahl, neueste, beste Progr., 
kleinste Unkosten; Tausch, Verkauf 
@ Info: 2,- DM-Marke: F. Sprenger, 4300 
Essen, Brassertstr. 18, 0201/796559 


VE 64 Supersoftware @® 
Immer die neuesten Spiele zu @@ 
absoluten Sensationspreisen @ 
Sehr umfangreiche Liste mit 
jenauen Erkl. der Spiele f.1DM 
@® in Briefm. Bei P. Bet ® 
Homburgerstraße 35,6365 Rosbach v.d.H. 








ZX 81 Frogger, Invaders, uva. 10,- DM 
Info bei GSw, Postfach 31 
A-4051 St. Martin 














Spectrum Supersoftware Spectrum 
Info 80 Pfennig, - Dipl.-Ing. G. Verse 
Gelsenkirchen, Grüner Weg 45 





COMPUTER-CASSETTEN 

mit BASF-LH-Band, 

je 10 Stück 

HIFI-MUSICCASSETTEN 

mit AGFA-super-fe. 

je 10 Stück 

Andere Mengen/Längen auf Anfrage 

Cristomenia-Cassettenstudio 

Gartenstraße 11, 3584 Zwesten 

Tel.: 05626/281, Versand per Rechnung 





VC-20 VC-64 VC-20 VC-64 VC-20 VC-64 
VC-20 Wissenschaftlicher Bio-Rhythmus 
VC-20 Textverarbeitung, Spiele 
VC-20 Haushaltskonto; Diagnoseprogr. 
VC-20/64 Dateiprogramm je 29,- DM 
Hard/Software Information für ....1,- DM 
MÜKRA, Rotdornweg 15, 1000 Berlin 45 


Apple, CBM 3/4/8000, VC-20, VC-64 
Mehr rausholen aus dem "Micro” mit 
schnellen Maschinenprogrammen 
Lernen Sie Assembler-Programmierung 
und Rechner-Aufbau verstehen. 
Kompaktkurs direkt am Bildschirm. 
Kompletter Kurs mit Software und 
Handbüchern (ca. 400 Seiten) in 
Deutsch nur 98,- DM. 

System angeben! 

Ing.-Büro Wilke, Postfach 1727 
5100 Aachen 





Sharp MZ-80B, 64 K RAM + Inter- 
face-Rahmen MZB0EK + Centronics- 
interf. + Drucker NEC PC-8023 + 
Handbücher und Basic, 1 1/2 Jahre, 
neuwertig, eventuell auch getrennt 
VB: 3500,- DM; Raum Stuttgart 
Telefon:: 0711/776445 





CBM-64/VC-20 Hardware + Software 
Wir haben den Superjoystick mit 
superrealistischem Pilotengriff, 
zwei Schussköpfe und 4 Saugnäpfe 
für 55- DM. Bar oder Scheck! 
Infoliste über alles bei Doffine 
u. Fischer, Postfach 1415, 479 Paderborn 


ZX 81 u. 64K u.Tastatur (ISS) u. Software 
und Bücher für 400,- DM abzugeben. 
Sa-Telefon: 067/26059 


TI 99/4A + Rec. + Ext.Basic + Sprach- 
Synthesizer + Joystick + 3 Module: 
Schach, Yahtzee, Tomb. City und viele 
Spiele auf Cassette. Basic für Anfänger 
Buch u. Cassette. W. Schulze 
Hermann-Löns 3, 6466 Gründau 4 





a a 


ACHTUNG! 
Spectrum! TI 99/4A 
Kostenlos (!) 
senden wir Euch unser 
Clubmagazin mit vielen Tips und * 
* Tricks, Testberichten und Listings! * 
* Softwarebibliothek mit v. Programmen * 
# vorhanden! (Rückporto!) bg 
* Achtung! Tauschpartner gesucht! * 
* Für 5,- DM-Schein erhaltet Ihr eine tolle * 
* Kassette mit 100 Spitzenprogrammen * 
* unser Magazin. Schreibt heute noch * 
* an: I. Scheitza, Wilhelmstr. 46, Herne 2!* 
* Tauschkatalog wird aut. mitgeschickt * 


a 





©® © © Commdır 46 oo © 
Befehlssatzerweiterung voll comp. 
mit Simons Basic. Mit ausf. Beschreibung 
Aut. Cass: 145,- DM, Disk: 95,- DM (!) 
Lieferg.geg. V-Scheck o. NN u.Port.u.Verp. 
Info geg. 2,80 DM in Briefm. S-W-S/H 
Postfach 6223, 4352 Herten 6 


® ® TI 99/4A @ @ Super-3D-Spiele! 
Neue Action-Games! Tolle Effekte 
Datei! Ab 1,- DM! Info 1-DM@ @ ® 
C. Wurzer, Grüntenweg 14, 85 Nürnberg 





250 ZX 81 Prog. 50,- DM o. Kas. u. Anl. 
Uli Fiege, Markstr. 196, 4904 Enger 


VC 20 30 x die besten 3,5K Spiele! 
mit  Schnelllademodul (so schnell 
wie Floppy!) 75,- DM, Tel. 02136/33522 





TI 99/4A + Rec.Kabel + Joystick + Litr. 
ünd TI" Zeitung Telefon: 02351/79280 


2X 81, 16K, Printer, Recorder, Literatur, 
Programme, Weller, Hans-Much-Weg 12 
Hamburg 20, Telefon:472272, DM 380,- 


ZX Spectrumzubehör: Speicherw-16-4 
8K88 DU; Floppydisksystem 5 1/4 320 K 
750,- DM; Seikosha GP100 Anschf. 750,- 
Andrees Budde, Tel. 0521/882897 n.19h 


© © RECORDERINTERFACE @ @ für 
V620/VC64/ alle CBM.' Jeder Recorder 
oder Tonbandg. als Datenspeicher. 
Fertiggerät im Geh. mit Steckern 
39,- DM, Fa. BOI/Hoye 1, 2225 Schaf- 
stedt, Telefon 04805/380, Nachnahmev. 


2X-Spectrum 48K, Recorder, Bücher, 
dt. Bedienungsanleitung; neu; 700,- DM 
H. Gierke, Telefon: 0211/491266 


ZX 81 + 16K + Softw. + Bücher f. 240, 
zu verkaufen. Telefon: 0611/615412 


@ Österreich VC-20 + Dataset. + 16k @ 
+ Supererw. + Spiele, Tel. 3558935 Wien 


und Keyboard mit Zehnertastatur + @ ® 
3 Brecher + ca. 35 Spitzenprogramme @ 
wegen Systemwechsels bilig ® 
abzugeben. Neuwertig, 7 Monate @ 
alt, nur 1200,- DM. Jörg Meyer, @ 
Meesmannstraße 49, 5810 Witten 3 @ 





CBM 64 und VE 20: Spitzensoftware 
in großer Auswahl:  Billigpreise! 
Maxiliste gegen 1,- DM bei T. Hanne, 
Hertastraße 24, 4650 Gelsenkichen 


VC-64 Verkaufe meine gesamte Soft- 

ware für 150,- DM, Wert 10 000,- DM 

15 Disketten oder auf Kassette. 
Telefon: 0208/840811 ab 19 Uhr 


} SPECTRUM: JOYSTICK ® 
® mit Interface inklusive Porto @ 
@ DM 128,- nur Vorauskasse, Post @ 
@ Scheck Stuttgart 228111-706 ® 
@ Peter Finckh, 7475 Messtetten @ 
Spectrum Speichererweiterung 
16 - 48 K DM 88,- 

Andreas Budde, 0521/882897 n. 19 Uhr 








SOFT UND HARDWARE FÜR VC-20 
QIUCK-SAVE STECKMODUL 60,--DM 
8K SPEICHERERW.m. SCH. 100,--DM 
16K SPEICHERERW.m.SCH. 160,--DM 
PROGRAMMIERHILFEM. 60,--DM 
MASCHINENSPRACHM. 60,--DM 
GRAPHICMODUL ohne 3K 60,--DM 
MODULBOX 5 STECKPL. 160,--DM 
MODULBOX 2 STECKPL. 65,--DM 
40/80 ZEICHENKARTE 

64K RAM KARTE 

EPROMM KARTE i 50,--DM 
EPROMM BRENNER 240,--DM 
EPROMM LÖSCHER 140,--DM 
BASIC 2000 160,--DM 
über 100 Programme Info gegen 

2,-- DM in Briefmarken von 

Norbert Flesch, Scheideweg 63 G 

4650 Gelsenkirchen-Bür 





Commodore VC 64 

Floppy Disk 1541 

Datasette 

Komplett 

Videorecorder ab 

TDK. E-180 10 Stck. 

Sonyl-750 10 Stck. 

BASF. E240 10 Stck. 
Versand per NN + Porto 
0208/892355 nach 18 Uhr 


628,- 
678,- 
129,- 
1390,- 
1048,- 
209,- 
199,- 
269,- 





VC-20 @VC-54@VC-20@VC-54@ VC-20 
@3-fach Moduladapter 85,- DM 
@Recorderinterface 49,- DM 
@Schalter für 16K Erweit. 13- DM 
@Mithörverstärker 19,- DM 
@Schnell-Save + Programmierhilfe- 
@Einsteckmodul m. 17 Befeh. 119,- DM 
40/80 Zeichenkarte; Netzinterface 
PIO-IN/OUT-Modul; Spiele + Programm 
Hard/Software Info für .... 1- DM 
MÜRKA, Rotdornweg 15; 1 Berlin 45 


HP 41C 3 Memory Kartenleser und 
Drucker VH 1500,- DM, Tel. 0612/543131 


VC-20 + Datas. + Joyst. + 400 Seiten 
Lehrbuch und Spielesoftware (z.B. Grid- 
runner u. Scramble u. Centipide) u. List- 
ingspr. für nur 800,- DM (Sie sparen 
ca. 400,- DM) Telefon: 02421/53354 (VB) 


use e eo .XBle oe © 7.8 
Suche Hard- und Software aller Art 
HR, Friedhofsw. 21, 3407 Gleichen 


Schreiben Sie Programme? 
Wir suchen Programme aller Art 
für Homecomputer 
Information: F + S 
Danziger Straße 21 
4020 Mettmann 


Software 





Original Software wanted for the 

VE 64, VE 20, Genie, Atari Computers. 

25 % Royalties paid. For further 

Information, write to: DARKSTAR, 32 

Sovereyn Street, Leeds LSI 4BT 
England 





AA MAKAK 
%* Software, Tips und Tricks #* 
%* % für Unterricht gesucht & * 
%* % Dreisow, Burgstraße 50 # %* 
*“ % % 3008 Gabsn5 A a * 








sl 0 © © XI o © © Zx.81 
Suche Hard- und Software aller Art 
HR, Friedhofsw. 21, 3407 Gleichen 








Wochenendseminare Z80 Maschinen- 
sprache für Anfänger. Information: 
Bodo Kirtz, Computertechnik 
Birmeckerweg 30, 5778 Meschede 6 





Endlos Tab.-papier 240 x 12 Zoll 
1 Karton = 2000 Blatt DM 41,-- 
H. Hartmann - Elektronik 
Kolberger Straße 5 a 
2071 Ammersbek 1, Telef. 040/6052615 


ZX-81/ZX-Spectrum Schaltbild für 
Rep. und Aufbau. Je 10,- DM-Sch. +frank. 
+ adres, Rückumschlag bei: Ch. Steppat 
Göttschiederstraße 30 
6580 Idar-Oberstein 


Spezialempfänger für Polizeifunk, 
Autotelefon, Schiffs-Amateur-Industr- 
funk-Prospekt anfordern: 02741/22367 


PROGRAMME ZU LANGSAM 77? 
Wir machen Ihre VE-64 Progr. 40 x 
schneller. PGM auf Cassette oder Disk 

an J. Egger, 8066 Lauterbach 
Flurstr. 6, 08135/461 * 08131/15693 
Je ab 18 Uhr. (2,- DM/KByte + 3,- DM 


Endlich - Aus dem großen Angebot der 
EDV-Literatur (nebst Randgebieten) erstel- 
len wir für Sie persönlich eine individuelle 
Übersicht. Sie brauchen uns nur Ihr EDV- 
Gerät und/oder das spezielle Interessenge- 
biet zu nennen. * Freiumschlag erbeten. 
M+C MICRO-COMPUTER GmbH 
Karlstraße 17 d, 4018 Langenfeld H 


* 
“ Achtung!! Spitzel! 

ii Spectrum! TI 99/4al 

* Wir suchen für unseren Tauschclub * 
* ständig Programme, Tips, Kniffe und * 
* Utilitys, Listings etc. aus allen * 
* Bereichen! Unsere Bibliothek steht * 
* jedermann zur Verfügung! Clubmaga * 
* zin und Tauschkatalog mit Programm * 
* übersicht erscheint regelmäßig! * 
* (Kostenlos!) Achtung! Schickt uns Eure * 
* Programme, Tauschlisten, Ideen, Tips * 
* zu! Ihr erhaltet postwendent unser * 
* Clubmagazin, sowie eine Kassette, voll * 
* mit nützlichen, von uns geschriebenen * 
* Programmen aller Art! (Versand inner * 
* halb von 3 Tagen! (Kein Clubbeitragi) * 
* Schreibt heute noch an: I. Scheitza * 
* Wilhelmstraße 46, 4690 Herne 2! * 
* (Rückporto) Tauschkatalog wird auto * 
in matisch mitgeschickt! ii 


ee 





























































© © © Tausche VC-20 Software @ @ @ ® Tausche CBM 64 Software @ @ 
M. Schulte, Van-Gogh-Straße 8, 65 Mainz @ Info 1,-- DM-Münze @ @ Michael Nelz COM MODORE 64 
TEEN Hildegardstr. 9, 6670 St. Ingbert @ endlich gibt es nun auch für den C 64 einen wirklich leistungsfähigen 
TI-99/4AA Texas Tausch Magazin i ni 
Info 2- DM bei Volker Biedermann Maschinensprachemonitor 
Zinkmattenstr. 1 8; 7800 Freiburg Das 4 K lange Maschinenprogramm re ee und bietet folgende 
Fer MP 
6:84 talle Programme © hospeichem eines MP © Disassembler 
Tausch oder gegen Selbstkosten Q Aura eines MP s Drückersuagabs 
B. Isert, Bürgerwehrstr.30, 7800 Freiburg EEE IE EETTEEHEETEEETE ee en Khan. ing, 
Telefon: 0761/280631 SINGLAIR BENUTZER CLUB, mit sehr ® Rechnen und Verknüpfen @ Suchen und Austauschen 
großer Software Bibliothek. SBC, © Umwandlung Hex/Bin/Dez ® Kopieren und Vergleichen 
Turnerstraße 37 A, 2810 Bremen 71 eo: 
in ee e Preise inkl. MwSt. 
Diskettomersion Versand per Nachnahme 
"INFO kostenlos’ 
Hermann Blos 
Rosenberger Str. 56 
C-15- Leercassetten 
für Computerprogramme und Daten ab 10 Stück je 1,90 8458 Sulzbach-Rosenberg 
ab 50 Stück je 1,75 SOFTWARE ENTWICKLUNG MIKROCOMPUTER Tel. (09661) 51880 








Bei Vorauszahlung plus 3, — DM Versandkostenanteil. 


Kein Versand 


Computer 


Commodore « Dragon 32 


Machen Sie Ihren VC-20/64 zum Profisystem! 


Z.B. mit Hardware (nur VC 20) Mit Spitzensoftware: 
© 64 K Ram Karte (Diskettenbetrieb) 

incl. Pseudofloppy Software Tabellenkalkulation 
© 40/80 Zeichenkarte he Buchhaltung 
Steckplatzerweiterung Fakturieren 

i Adressverwaltung 

58- Statistikpaket 64 
© Eprom Programmiergerät Makroassembler 

incl. Software 198,- Spiele u. einiges mehr. 





Hewlett-Packard « Sinclair 


Selbstverständlich alle Computer mit deutschem Handbuch 
Reichhaltige Auswal an Computer-Literatur für Hobby und Beruf Endlich lieferbar für C-64: 
© Die 80 Zeichenkarte 298.- 
© Das Systemhandbuch zum 

Commodore 64 u. VC-20 74- Katalog gegen 2,-DM Briefmarken. 
© 6502 Assembler-Kurs 38- Lieferung per Nachnahme. 


TE TEN 
Johannisstraße 7, 2350 Neumünster 
Tel.: (04321) 44827, ab 14.00 , Sa ab 9.30 


Peter Hemmer 
Verlag & Versand 
Hardware u. Software 
Mühlweg 54. 6730 Neustadt 19 
Tel.(06321)3 19 92 





Auftrag für Gelegenheitsanzeigen in Homecomputer 


Name und Adresse 








An Homecomputer 
Westring 59c 

Postfach 620 Abo.-Nr. 
3440 Eschwege 








Unterschrift 










Ich zahle sofort nach Rechnungserhalt. 
Unter der Rubrik „Kleinanzei- 

gen“ veröffentlichen wir Ge- Ich wünsche folgenden Text zu veröffentlichen: 
legenheitsanzeigen für Ver- 

kaufsangebote, Kauf- und l I EEE U | 
Tauschgesuche, Kontaktauf- LLIIIIIII ISIS IS III I IT | j 
nahme bzw. Erfahrungsaus- 


tausch usw. 



















Preise für „Kleinanzeigen“: 
Private Gelegenheitsanzeige [III I I I I JS JA ASS ASS ISIS I IT | 
je Druckzeile 5,— DM inkl. 

MwSt. Chiffregebühr je Anzei- II 1 
ge 10,- DM. BD BD PN a DD a BR A ED Da DD N 
Gewerbliche Gelegenheitsan- LI III |||] | |] | I I I 1 | 
zeige je Druckzeile 7,—DM inkl. IA 


MwSt. (dürfen nicht unter Chif- 
fre erscheinen). aa Be I I IN 






























Zutreffendes ankreuzen 
Tausch Versch. 
Kontakte Chiffre 














suche Hardware 


Hardware 


suche 
























































biete an biete an 

















Hangman 
für den TI-99/4A + Ext. Basic 


Das Spiel Hangman ist die Computerversion des bekannten Ratespieles 
Galgenmännchen. Es kann mit zwei Personen gespielt werden, wobei einer ein Wort in 
den Computer eingibt und der andere dieses Wort erraten muß. 


100 HANGMAN 

110 

120 01.11.1983 BY 

130 

140 HEICO HOMBURG 

150 

160 CHAR (129, "FFFFFFFFF 
FFFFFFF") 

170 CALL CHAR(1 30, "OFOFOFOF" 


180 CALL CHAR(131 ,"OFOPOFOFF 
OFOFOFO") 
190 CALL CHAR (132, "FFFFFFFF" 


200 CALL CHAR (133, "00000000F 
OFOFOFO") R 
210 CALL CHAR(1 34, "FOFOFOFOF 
OFOFOFO") 

220 CALL CHAR(135,"FFFFFFFFF 
OFOFOFO") 

230 CALL CHAR(1 36, "FFFFFFFFO 
FOFOFOF") 

240 CALL CHAR (137 ,"FOFOFOFOO 
FOFOFOF") 

250 CALL CLEAR 

260 X$="" 

270 DISPLAY AT(2,11):"HANGMA 
N" 2: DISPLAY AT(4,1):"WORT? 
" :::ACCEPT AT(6;1)SIZE(28)B 
EEP:W$ 

280 CALL CLEAR 

290 A=9 

300 DISPLAY AT(2,1):"NOCH "; 
STR$ (A);" VERSUCHE" 

310 $=11 \ 

320 DISPLAY AT(4,1):"GEBRAUC 
HT2" 

330 DISPLAY AT(6,1):"BUCHSTA 
BE?" 

340 FOR I=1 TO LEN(w$) 

350 CALL HCHAR(8,1+2,45) 

360 NEXT I 

370 ACCEPT AT(6,12)SIZE(1)BE 
EP:Bf 

380 DISPLAY AT(4,5):B$ 
390 S=S+1 

400 B=0 
410 FOR I=1 TO LEN(w$) 

420 IF SEG$(W$,1,1)=B$ THEN 
GOSUB 530 

430 NEXT I 

440 IF B=1 THEN GOSUB 880 
450 IF B=1 THEN 370 

460 A=A-1 

470 DISPLAY AT(2,6)SIZE(1):5s 
TR$ (A) 

480 IF A=0 THEN 780 

490 ON A GOSUB 750,720,700,6 
80,660,620,590,560 


500 DISPLAY AT(2,6)SIZE(1):5 
TR$ (A) 

510 $S=S+1 

520 GOTO 370 

530 CALL HCHAR (8,1I+2,ASC(B$) 


540 B=1 
550 RETURN 
560 DISPLAY Bere 


‚ch 


570 DISPLAY AT 
580 RETURN 

590 DISPLAY a 

600 DISPLAY AT(20,3 

610 RETURN 

620 FOR X=15 TO 19 

630 DISPLAY AT(X,3):"F" 

640 NEXT X 

650 RETURN 

660 DISPLAY AT(15,3):"GDDD" 
670 RETURN 

680 DISPLAY AT(15,6) :"H" 

690 RETURN 

700 DISPLAY AT(16,6) :"0" 

710 RETURN 

720 DISPLAY ir 

730 DISPLAY AT(18,6 

740 RETURN 

750 DISPLAY AT(17,5)SIZE(1): 
ag“ 

760 DISPLAY AT(17,7):"I" 

770 RETURN 

780 DISPLAY AT(19,5):"C I" 
790 DISPLAY AT(17,17):"AAAAA 
AAAAA" :: DISPLAY AT(18,17): 
WAERHANGENA" :: DISPLAY AT(1 
9,17) :"AAAAAAAAAA" . 
800 CALL SOUND(1000,131,0) 
810 DISPLAY als WAR 
:" 2: DISPLAY AT(12,1):w$ 
820 DISPLAY AT(23,1):"EIN NE 
UES SPIEL? (J/N)" 

830 CALL KEY(O,K,ST) 

840 IF ST=0 THEN 830 

850 IF K=74 THEN 250 

860 IF K<>78 THEN 830 

870 END 

880 x$="" 

890 FOR Y=1 TO LEN(W$) 

900 CALL ee 

910 X$=X$&CHR$ (Z) 

920 NEXT Y 

930 IF W$=X$ THEN 950 

940 RETURN 

950 DISPLAY AT(17,17):"AAAAA 
AA" :: DISPLAY AT(18,17):"AB 
RAVOA" :: DISPLAY AT(19,17): 
"AAARAAA" ; 

960 CALL SOUND(1000,440,0) 
970 GOTO 820 


20,2 
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AREAL 


KATALOG 
EZEMBER ERHÄLTLICH 





sno 
‚€ THE SUPREME 


wırı you 
D CHAMPION? 


WORLI 


(SCHUTZOEBÜHR 


3,-DM) 








, 
NL Tr 


DELUXE JOYSTICK CONT; 
= ROLLER 





HÄNDLERA NFRAGEN ERWÜNSCHT 
SOFTWARE-A UTOREN GEsucHT, 


INFO ANFORDERN 


FOR THE 
COMMODORE 64 


SUPERFONT 
4.0 





CASSETTE 
Ournnew character 

lets you re-define 
‚our own ‚character 


facilities and 
documentation. 


ROMIK so! 
‚SOFTWARE 7% 
sen? & 


SPACE ATTACK 


" 
— FOR UNEXPANDED vie 20 


ic2 


ISrteere 
AREAL ACHION SnOTOR mnEaRmE” 
WILL Sa 
UBETHE 
ale WORLD 
HAMPION? 


WICOSOFT ® isti i 
Christian Widuch @ Nordstr. 22 @ 3443 Herlesh 
ausen 





ROMIK SOFTWARE Zu 
SUPER NINE VERGESSEN SIE NICHT, IHRE WEIHNACHTSBESTELLUNG 
RECHTZEITIO AN UNS ABZUSENDEN! 


FOR IK ZX 81 
\erember erhältlich (Schutzgebühr 3:-DM) 


















1..CANYON 

. 2. ASTEROIDS Neuer Katalog ab Anfang D 
3. ASTROBLASTER 
4..DEFENDER 
5. SQUASH 
6. SCRAMBLE 
7. SKETCH 
8: COSMIC RAIDER 
9. FOUR THOUGHT 


ee 
WILL YOU BE THE 
SUPREME WORLD 
CHAMPION? 


JEDE MENGE 
NEUE spiele 





FORTHE 


— 48K = 
2X SPECTRUM -; 


w Ab 3 
ICOSOFT ® Christian Widuch @ Nordstr. 22 @ 3443 Herleshausen 


WICOSOFT 













präsentiert: 
Neues yom Das AUTOMATA UK Ltd. Programm aus England. 
n DR ) 
ima AGOR)soasyayy 
? PSrasyıal 
h DOODLES & Demos EONRU 
K. LTD, me.cnearons or Ama art 1a Te sro 
Uncle Groucho AUTOMATA ur EIN ET N Be 
für Spectrum ABK Adventure PRESENT nick we rn 
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Ein neues, Spann 


plus 
SeLr-re, 
COME TRUE! FELF-TEACHING GRApuICS 
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GREEK, Russıan 
ARABIC, warus, ch 
FOOTBALL, TAvaDERs 
PACHAN, FROGGER, Ak 
HUNDREDS MORE alı ar 
fhe touch or a ayı 
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imania- Mein Name 
in den Pimania-Leuten. Narı 
Ist Uncle Groucho, gewinnen Sie eine 
icke Zigarre... j j 
De en der = u. en 
nnten Onkel Grouc e 
nitizert, erhält als Belohnung eine 


F ETE wir 
TMPLE FULL INSTRUCHIONg 


Ein Paket brill 
fekt für Hei 
Plus Lehrpr 


h 0 
Vorhandene 


O&ramm zum Se Ibsters 








Zeiche tellen BI 
bräisch, Kin alas Er B. Griechisch" eye 
; man, Frogger usw. 11.ne, Schach, Fußball, "Invadı 16" 
N Personen nach Hol 2 w.- Hunderieuan, Fußball, Invaders, Pac 
In zu mit. 0er Concorde ” mandos selbst zu erzeugen, © weitere durch einfache Kom- 
London. 
Toll, was? 


imania-Pro- 
ie das legendäre Pimania: 
re so ist auch das a 
Adventure voller Gags und 


ET für ZX.81 J6K 
der Rückseite wieder ein Song r >>. NN hr zn > . 
«ii "Lady Clair Sinclive, The Piman u. N 








für Drag, hectrum 48K 
Atric's Das 2 
it der Gruppe AtricS | 
GEN itzenprogramm, das jeder 


. us England, Bisher 
PIAAN - niemandem alsper a 
s KROUCHO.mePliA \ 
Piman-Fan haben muß! sarana GROUEHO SEEN 





£6000 (z.Zt. ca. 24000 Be von 
Songs und Tänzen, usik, Cartoons 


Spiel kann" wird his 


BEST POSSIBLE en 
TASTE Bröcen Zxspeaum 


n h ein ganze 
en 3 findest e ganze 
ner Kassette Ausohe Spiele aufei- £ ei 
n ar me n # 4 ! i nelischkennuniun T a.sind 
Das Bestmögliche für den IK ZX-81! et 
as es 
30 Spiele auf einer Kassette! en DM 19,50 
Horrorscope, Bad Spells,Der FUN e 
Kick The Bucket, Horserace, a re 
k ine, P Dole, Stork, GTO- 
unny Valentine, Pox, or Sn | | 
[ inglp Life Support, Tumbling Dice, F = PATER 
H s, Find The Number, Reagan, Crystal 
ON . x nal 
Ball, PS and QS, Gene s 


er nicht! D; 
n eine W. cht! Das 


air und Dra- 


gon Compute „Sınel 
er geschrie, 
erklärt, geschrieben w urde 


selten-Rückseir 
and The Mystery a der Original-Pj, 
God, Noahs Ark, 


Plagues, Goliath, Jonah, Merry Christmas, 


Lies ... DM 19.50 
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Inla-Song mit Clair Sinclive!? 


Englischkenntnisse sind not 


BIKERS 


Morris meets the 
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Jumpin Jack 
für den VC-20 o. Erw 


Das beliebte Froschspiel in perfekter 
Aufmachung. Ein Spiel — nicht nur für 


Grüne. DM 45,50 


Adventure-Spiel f. VC-20 
(Speichererweiterung mind. 16K) 


ein Superspiel 





BE Pre 





| Der Fluch des Pharao | 


Der Bestseller 


Abenteuerspiel in deutscher Sprache. 
Finden Sie die verborgene Pyramide in der Wüste. 


DM 19.50 


ROMIK, SOFTWARE / 


MULTISOUND SYNTHESIZER 
für den VC-20 o.Em. 


izer fü termu- 
nthesizer für alle Compu i 

N ernle Extrem flexibel. Alle denk: 
baren Musik- und anf: 
A zu kombinierende run n 

E Rhythmus, P! 

ten vorhanden: Musik, ie 

| d Toneffekte. 
mmierbare Musik un! 

Eines der stärksten Programme von 


ROMIK. DM 39,50 









ROMIK SorTware 


PARTIEN RAIDER 


ERELBIEER MARTIAN RAIDER 
Air den VO-20 En 
Bu K ii a Jet über den pIa- 


pft die Städte d 
rstöre di Pre 
pots, schieß die U a unitionsde- 


ur ten ab. Vorsi Pi. = 
A . Vorsicht vor d ; 
ACTION SHOT OrTReERe— GENN jeder kö „den Meteoriten 
WILL YOU BE THE ch, Jeder könnte Dein letz 
SUPREME woRrLp 





* 


CHAMPION? 


DM 39,50 


Skramble ner 
= für den VC-20 0. Erw. 

Do besten Scramble-Versionen 
auf dem Markt. Superschnell. Tolle AIR 
fik. Guter Sound. Joystick oder Tasten 


" _ bedienung. 
ö Mm 39.50 


ROMIK SOFTWARE 25 


MOOS OFJUPITER MOONS OF JUPITER für den 
VC-20 m.Erw. (3 8 0. 16K) 
Du bist Commander einer galaktischen 
= Flotte. Während die Flotte das Mutter- 
schiff begleitet, sucht ein Raumschiff 
E % die Passage zwischen den Jupitermon- 
den. Riskante Ausweichmanöver sind 


nötig. Achte auf die Ufo der Gologs. Sie 
wollen Dich vernichten, 


DM 39.50 





[A REAL ACTION SHOT OF THE GAME” 
WILL YOU BE THE 


SUPREME WORLD 
CHAMPION? 


SiRETIER 


SHARK ATTACK 
für den VC-20 o.Erw. 


Du schwimmst in dem von Haifischen 
wimmelnden Meer, nachdem Du aus 
dem Piratenschiff entkommen. bist. 
Deine einzige Waffe ist ein Netz, wel- 






4 i : 
4 ches Du hinter Dir herziehst und mit 
u B dem Du die Haie fangen kannst. 
Zeszsurreem- Hüte Dich anzuhalten. Die Haie lauern 


WILL YOU BE THE 
SUPREME WORLD 
CHAMPION? 


gierig auf Dich. 


DM 39.50 


Neuer Katalog ab Anfang Dezember erhältlich (Schutzgebühr 3,-DM) 
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VERGESSEN SIE NICHT, IHRE WEIHNACHTSBESTELLUNG 
RECHTZEITIG AN UNS ABZUSENDEN! 





The Hobbit für den 7X Spectrum 48K 


| \ Tarzan fü 
Das neue Superadventure. Herrliche Grafik. Großer Befehlssatz. Ei an Tür den ZX Spectrum 16 & 
Ein Meilenstein der Microcomputersoftware. Dazu das Hobbit“ an een Tarzan muß Jane befreien. Bi wird 
Taschenbuch (in englischer Sprache). Tolle Grafik, a Happy-End am Schluß? 
DM 78.- . Ohne Joystick gut spielbar. 
DM 25.-- 
JEDE MENGE NEUE SPIELE 


für Spectrum 48k: 


Adventurer's Nightmare (Abenteurers Alptraum) 
Freie Tastenwahl. Deutsche Spielanleitung im Programm. Fünf “ nzX Spectru 
Nächte müssen in der Spukhöhle verbracht werden. Es gilt, Gold ( 


und Leben vor Gespenstern, Vampiren, Energiespindeln, Skeletten utzt. Wer den erweiterten 

und Mörderspinnen zu verteidigen. Sehr schnell! tzt, sollte auf dieseS Spiel 
DM 32.00 nicht verzichten. 1- 

Schatzsuche im Irrgarten DM 31. 


Maschinensprache. Deutsche Spielanleitung im Programm. Fin- 
den Sie in der obersten Reihe den Geheimmechanismus, damit die 
Urne sichtbar wird! Die ersten Urnen sind problemlos zu finden, 
aber dann ... Zeit, fallende Steine und Monster sind gegen Sie! 


DM 32.00 





Flipper 
Deutsche Anleitung im Programm. Freie Tastenwahl. Flippern wie 
in der Kneipe um die Ecke! Drei Geschwindigkeiten. Bis zu vier 
Spieler spielen je drei Bälle! Sehr schnell! 

DM 32.00 


Spectrum 16k: 


Teufels-Fahrer 
Deutsche Anleitung im Programm. Weichen Sie dem entgegen- 


Colour Clash 
für Spectrum 16/48 K 


füllen Sie die Felder mit dem magi- 
schen Pinsel aus und lassen Sie sich 
nicht von den bösen Geistern erwi- 
schen. 100% Masch.code, sehr unter- 
haltsam. 





kommenden Gespenst aus, indem Sie rechtzeitig die Spur wech- I REN. ACTION BROT OF TME GAME DM 35.00 
seln. Rasend schnell! 10 verschiedene Geschwindigkeiten. nu You BE THE SUPREME 
WORLD CHAMPION? 


DM 32.00 


HÄNDLERANFRAGEN ER Hansen 
T 
SOFTWARE-AUTOREN GESUCHT, INFO ANFORDERN 
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